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Editoriale 


LASERIANI, 

sono arrivate alfine anche le vacanze. La mag¬ 
gioranza di voi, aficionados del 500 e del 310, ha 
chiuso l’anno scolastico (con che finale tranquillo, 
vero?) e si appresta ad un due-mesi-tre di sane fe¬ 
rie. Qualche ritardatario è ancora alle prese con gli 


esami, ma si tratta di una sparuta minoranza. Co¬ 
me minoranza sono gli abbonati al club adulti (nel 
senso che la scuola, per loro, è finita da un pez¬ 
zo), che le ferie ancora stanno sospirandole, ac¬ 
caldati, era ora, a traballar negli uffici (ad aria 
condizionata) o in qualche amministrazione (forse 
qui senza condizionatore). 














Editoriale 


Chi ci ha seguito con costanza in questi tre anni 
quasi, si è certo accorto che la rivista piano piano 
ha subito una trasformazione. Eravamo partiti con 
idee di un certo tipo, diffuse, e un po' confuse, tra 
un buon numero di persone, che producevano, se¬ 
condo il loro modo di vedere, pezzi di varia natura 
e connotazione. C’erano la routine, non mancava 
il gioco, si poteva trovare il programma educativo, 
qualche articolo piacevole da leggere, di cultura 
generale sull’Informatica (da noi scherzosamente 
ribattezzato "aria fritta”), qualche incentivo, dei que¬ 
stionari ... una rivista variegata e simpatica. 

Sono sorti poi i primi club regionali, e ci siamo det¬ 
ti “largo alle forze nuove e fresche”, diamo spa¬ 
zio. Più volte anch’io ho sollecitato fattiva collabo- 
razione, autorizzando anche la pubblicazione di an- 
nuci che, nella sostanza, erano in contrasto con lo 
spirito che animava i collaboratori della rivista. Vo¬ 
levamo che il LASER COMPUTER CLUB non fos¬ 
se il solito giornale di informatica monopolizzato da 
qualcuno con il pallino del binario e che si fa pa¬ 
gare bene per svelare agli altri, passivi copiatori, 
i trucchi dei computer laser. Volevamo che arrivas¬ 
se materiale utile ed intelligente (sappiamo bene 
che ne è stato prodotto al di fuori della nostra re¬ 
dazione), per permettere a tutti di mandare mate¬ 
riale utile ed intelligente, di modo che la rivista cre¬ 
scesse in numero di pagine, di informazioni e di 
abbonati. Non si trattava in realtà di un problema 
economico, ma di reale diffusione della rivista tra 
i possessori di Laser. 

Risultato? Il gruppo iniziale si è un pò sganghera¬ 
to: chi ha coltivato altri interessi con strumenti più 
potenti (vedi i personal computer), chi gli home 
computer più noti, chi non è riuscito, per un certo 
lungo tempo, nemmeno a respirare, figuriamoci ac- 
cuparsi dei laser. Risultato? Diamo spazio, si era 
detto. E dando spazio ci siamo ritrovati soli soletti 
a chiederci: ma davvero c'è così poca voglia di far 
partecipi gli altri delle proprie trovate, delle proprie 
scoperte? Davvero gli oltre diecimila possessori di 
laser in Italia non sentono la necessità di contribui¬ 
re a far crescere la “loro” rivista? 

Ho anche pensato che a qualcuno sia frullato in 
testa un ragionamento di questo genere: “se qual¬ 
cuno pubblica una rivista, del costo di 4.000 lire, 
qualcosa ci deve pur guadagnare. Se vuole i miei 
programmi, qualcosa deve pur sganciare.” Sarà 
bene chiarire una volta per tutte come stanno le 
cose. 


Nel 1987 abbiamo avuto 1870 abbonati. Per lire 
20.000 ad abbonamento fa la bella cifra di 
37.400.000. Copertina, fotocomposizione, impianti 
di stampa, stampa, confezione, selezioni, arte gra¬ 
fica e impaginazione, indirizzi e postalizzazione (più 
le rispedizioni perché non a tutti arrivava) hanno 
prodotto un costo medio per rivista di L. 3.289. Che 
per 1870 fa la bella cifra di 36.902.580. Sono ri¬ 
maste esattamente 497.420 lire (82.903 per nume¬ 
ro) da scialare tra chi ha registrato gli abbonamenti 
e li ha tenuti aggiornati, la redazione che si occu¬ 
pa della posta ed il sottoscritto (che non ha becca¬ 
to una lira). Ciò che volevo dimostrare con le cifre 
è che non lavoriamo alla rivista per soldi (e non è 
nemmeno questo il motivo per cui la pubblichia¬ 
mo). Soltanto, ci voleva più collaborazione. Volete 
un esempio? 

Un certo signore (persona adulta residente in zo¬ 
na Napoli) ha inviato due anni fa una cassetta con¬ 
tenente un bel labirinto tridimensionale (proprio co¬ 
sì!!!), davvero simpatico da giocare, chiedendoci 
se ci interessava. Figuriamoci in redazione!!! Sol¬ 
tanto, voleva appena trecentomilalire (due anni fa, 
che gli abbonati erano ancora meno). Abbiamo det¬ 
to che potevamo contribuire (con un po' meno della 
metà), ma che per i lettori sarebbe stato un gioco 
davvero gradito. Se l'è tenuto. 

La morale, amici cari, è che chi disponeva, e par¬ 
lo anche ad altri, di giochi o programmi validi non 
ha accettato un piccolo sacrificio iniziale per aumen¬ 
tare l’audience della rivista e permetterci quindi, 
successivamente, di pagare il giusto. L’editore, del 
resto, era stato molto categorico: "la rivista deve 
chiudere almeno in pareggio”. E se pure così è sta¬ 
to, dobbiamo dire che per un certo periodo i listati 
che ci pervenivano facevano un po’ ... acqua, e 
siamo buoni. 


Oggi che abbiamo trovato collaboratori validi, an¬ 
cora entusiasti dell’idea iniziale, che chiedono molto 
poco e creano programmi divertenti e intelligenti; 
oggi che non privilegiamo più il 500 o il 310 (210, 
200 elio inclusi, naturalmente), gli abbonati so¬ 
no calati a 840, mentre i costi sono saliti. Così non 
ci resta che lanciare un appello accorato: fate opera 
di proselitismo, voi fedelissimi; mostrate a chi sapete 
possedere un laser il nuovo numero della rivista, di¬ 
te di riabbonarsi (si può farlo semplicemente ver¬ 
sando L. 20.000 sul conto corrente nr. 14066229 
intestato alla Sofin s.r.l., piazza del Popolo 14, 
22100 COMO) e, soprattutto, collaborate, manda¬ 
te listati, fate crescere la vostra rivista. 


°co é mn<95> dopo 
rivista F eDivfii 
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Software 



Flipper game 


PER LASER 310 


Anche per il Laser 310 
la grafica del gioco è si¬ 
mile alla versione del L. 
500, per quanto ri¬ 
guarda il suono invece 
manca del tutto. PEC¬ 
CATO! 

Comunque non dispe¬ 
rate anche in questo 
modo il gioco è altret¬ 
tanto valido. 
DESCRIZIONE DEL LI¬ 
STATO. 

Dalla linea 30 alla 110 
disegna il flipper com¬ 
pleto di palette ed 
ostacoli. 

La linea 120 determina 
il punto di partenza 
della biglia. 

Le linee 145 e 148 con¬ 
trollano se uno dei due 
tasti cursore freccia 
destra o sinistra è sta¬ 
to premuto. 

Dalla linea 150 alla 230 
stampa il movimento 
coordinato della biglia, 
ostacoli ed infine le 
due palette. 


Dalla linea 255 fino al¬ 
la 550 sono delle su- 
broutines per il dise¬ 
gno di entrambe le pa¬ 
lette. 

Dalla 1000 in poi. fine 
gioco. 


Lista delle variabili 
usate: 

PX. PY = DIREZIONE 
BIGLIA X e Y 
SX. SY = INCREMEN¬ 
TO X e Y 

BL = NUMERO DELLE 


BIGLIE 

PT = PUNTEGGIO 
Q$ = DIS OSTACOLI 
AD. Z = VARIABILI 
TEMPORANEE 
SC = IDENTIFICA L'O¬ 
STACOLO 


io 

12 

13 

14 

15 

16 
20 
30 
40 
50 
60 
65 
70 
75 
BO 
85 
90 
95 
97 

100 PRINT3398,CHR*<134> 5 " ; CHR* < 137> 

105 PRINT3135.0* 

110 PRINT3420,” SCORE 0 BALL 5" 

115 REM START BIGLIA 

120 PY=96:SX=1:SY=32:L0=25 

125 PX=INT(RND<18>+6> 

130 SOUND 10,1;20,li 30,1 

132 IF BL=0 THEN 1000 

133 REM INI Z. PROGRAMMA 

135 FOR K=0 TO 3:SC=PEEK(28672+PX+PY) 

140 T*=INKEY*:T*=INKEY* 

145 IF T*="M" THEN GOSUB 500:AD=1:K=0 
148 IF T%="," THEN GOSUB 550:AD=2:K=0 

150 IFSC=144THENPT=PT+1O!PRINT3427,PT:SY=-SY:G0T0210 
155 IF SC=156 THEN SY=-SY:GOT0210 
205 PRINT3PY+PX, 

209 PRINTfflPY+PX," "5 

210 PX=PX+SX:PY=PY+SY 

215 IF PX =6 OR PX=LO THENSX=-SX 
220 IF PY=64 THENSY=-SY 

230 IF PY=416 THEN BL=BL-1!PRINT3441,BL:GOTO 120 
235 NEXT 

255 PRINT3366," “:PRINT339B,CHR*<134>:AD=0 

260 PRINT3369 .PRINT3401,CHR*(137):AD=0 

300 IF 2=1 THEN GOT0350 

340 PRINT3135.0*;.. 135 

350 PRINT8137,0$:Z=0:GOTO 135 

500 PRINT3398,” " : PRINT3>366, CHR* ( 140) : RETURN 
550 PRINTS>401, " ” s PRINT3369, CHRS < 140) : RETURN 
1000 PRINTS)264, "G A M E OVER" 

1010 PRINT3295, "PRESS KEY TO START'* 

1020 SOUND 10,1520,1530,1 
1030 A$=INKEY$:A*=INKEY* 

1040 IF AS=" " THEN 1030 ELSE RUN 


'************************ 

’t FLIPPER * 

’«LISTATO PER LASER 310 * 

’ * BY ROBERTO B. * 

*«A CURA DELLA REDAZIONE* 
************************ 

CLSsCLEAR 5000 
REM DEF FLIPPER 
OS*»" "+CHR* <128) 
0*=0S*+0S*+0S*+0S*+0S* 

PRINT337, CHR*<129>5 

FOR Q=1 TO 20:PRINTCHR*(131) 5 :NEXT 

PRINTCHR*(130):BL=5 

FOR A=0 TO 8 

PRINT369+Z, CHR* (133) 

PRINT390+Z,CHR*(138) 

Z=Z+32:NEXT:PRINT369+Z,CHR*(132)5 
FOR A=0 TO 19:PRINTCHR*(140 )5 s NEXT 
PRINTCHR*(136) :PRINTS>366, " 
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Flipper game 


PER LASER 500 


È un gioco abbastanza 
semplice almeno per 
questa versione su 
computer LASER. Si 
tratta di un gioco ab¬ 
bastanza diffuso non 
molto tempo fa. prima 
dell'avvento dei com¬ 
puter nei bar. simulan¬ 
do una sorta di giochi 
d'ogni tipo. 

Questo gioco presenta¬ 
to dal Sig. B. Roberto, 
simula il vecchio tipo 
del flipper. 

Tenendo conto delle 
pochissime linee d'i¬ 
struzione BASIC devo 


dire che è ottimo! sia 
dal punto di vista di 
presentazione grafica, 
e del sonoro. 
DESCRIZIONE DEL LI¬ 
STATO 

Dalla linea 140 alla 300 
disegna il flipper com¬ 
pleto di palette ed 
ostacoli. 

La linea 320 determina 
il punto di partenza 
della biglia. 

Le linee 370 e 380 con¬ 
trollano se uno dei due 
tasti cursore freccia 
destra o sinistra è sta¬ 
to premuto. 


Dalla linea 400 alla 490 
stampa il movimento 
coordinato della biglia, 
ostacoli ed infine le 
due palette. 

Dalla linea 500 fino al¬ 
la 690 sono delle su- 
broutines per il dise¬ 
gno di entrambe le pa¬ 
lette. 

Dalla 700 in poi. fine 
gioco. 

Lista delle variabili 
usate: 

B1, B2, B3$ = DIS 
BORDO FLIPPER 
PS$. PD$ = DIS PA¬ 
LETTE APERTE 


PC$, DIS PALETTE 
CHIUSE 

DEF FN P$ (X. Y) = LO¬ 
CATE X. Y 

PX. PY = DIREZIONE 
BIGLIA X e Y 
SX. SY = INCREMEN¬ 
TO X e Y 

BL = NUMERO DELLE 
BIGLIE 

PT = PUNTEGGIO 
Q$ = DIS OSTACOLI 
AD. Z = VARIABILI 
TEMPORANEE 
PEEK (&H85F0) = 
LETT. TASTO 
SC = IDENTIFICA L'O¬ 
STACOLO 


100 ’t**t*tt**ttt*t**t*t*t****tt**t**tt* 
110 ’»*** FLIPPER **** 

120 ’***» LISTATO PER LASER 500 **** 

130 ’»*** di ROBERTO B. **** 

140 ’S*** a cura della redazione * * * * 
150 ’ **** LASER COMPUTER CLUB **** 

160 > 

170 COLOR 15,0,1:CLS*TEXT 40 
180 CLEAR 5000 

182 DATA &H21,&H30,0,&H11,5,0,6,2,&HCD,&H 
EA,9,&HC9 

183 DATA &H21, &HFF, 2, &H11, 1,0, 6, 2, &HCD, 8<H 
EA,9,&HC9 

184 FOR W=8<H8970 TO &H8987:READ MsPOKE W, 
M 

186 NEXT : SD=&H8970: DP=&H897C 

190 REM DEF. STRINGA FLIPPER 

200 B1S=” "+CHRS(158)+STRINGS(28,CHRS 

(156))+CHRS(157) 

210 B2S = " " +CHRS ( 154) +STRINGS (28, " " ) 

+CHRS(149) 

220 B3S=" "+CHRS(155)+STRINGS(28,CHRS 

(147))+CHRS(151) 

230 PRINT B1S:F0R B=1 TO 17:PRINT B2S:NEX 
TsPRINT B3S 

240 PSS=CHRS(153):PDS=CHRS(150):STS=" "+ 
CHRS(159)+CHRS(159) 

250 QS=STS+STS+STS+STS+STS+STS+" ":PCS=C 


260 REM DEF FOR ISTR. LOCATE X,Y 

270 DEF FN PS(X,Y)=CHRS(27)+CHRS(161)+CHR 

S(31+X)+CHRS(31+Y) 

280 HS=CHRS(27)+CHRS(161) 

290 PRINT FN PS(17,19) 5 " » :BL=5 

300 COLOR 6,0:PRINT FN PS(17,20);PSS 5 " 

” ; PDS 

310 PRINT FN PS(18,21);PSS;" " 5 PDS 

320 PRINT FN PS(6,23);"SCORE 0"5TAB(27)5" 
BALL 5" 

330 COLOR 12,0:PRINT FN PS(7,5);QS:COLOR 
15,0 

340 REM START PALLINA 

350 RANDOMIZE:L0=40:LV=24:PX = INT(RND(1)* 1 
8 )+7:PY=2:SX=.5:SY=! 

360 SOUND 10,1;20,1;30,1 

370 1 F BL=0 THEN GOTO 730 

380 REM **** INIZIO PROGRAMMA **** 

390 FOR K=0 TO 5 

400 IF PEEK(&HF5F0)=22 THEN CALL DP:GOSUB 
560:AD=1 

410 IF PEEK(&H85F0)=34 THEN CALL DP:GOSUB 
650:AD=2 
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420 FRINÌ FN Pi(PX,PY); :SC=PEEK(&H8604) 
430 IF SC=31 AND SY=1 THEN CALL SD:SY=-1: 
PT=PT +10:PRINT FN Pi(11,23);PT: GOTO 490 
440 IF SC=31 AND SY=-1 THEN CALL SD:SY=1: 
PT=PT +10:PRINT FN Pi(11,23);PT: GOTO 490 
450 IF SC=19 THEN SY=-1:CALL SD:GOTO 490 
460 IF PY>22 THEN BL=BL-1:PRINT FN Pi<33, 
23);BL: GOTO 350 

470 PRINT FN Pi(PX,PY);CHRi(140) 

480 PRINT FN P«(PX,PY)|" " 

490 PX=PX+SX:F*Y=PY+SY 

500 IF PX=7 OR PX=L0-6 THEN SX=-SX:CALL S 
D 

510 IF PY-2 THEN SY=-SY 

520 IF AD=1 OR AD=2 THEN GOSUB 610:AD=0 
530 NEXTsIF Z=1 THEN COLOR RND(1)*5+10,O: 
GOTO 550 

540 PRINT FN Pi <7,5) 5 Qi:Z = 1: GOTO 390 
550 PRINT FN Pi(9,5);Qi:Z=0:GOTO 390 
560 PRINT FN Pi(24,20);" " 

570 PRINT FN P*<23,21) 5 " " 

580 COLOR 6,0:PRINT FN Pi<23,19 )5 PC* 

600 RETURN 

610 IF AD=2 THEN 700 

620 PRINT FN Pi<23,19) j" " 

630 PRINT FN Pi<24,20) 5 PDi 

640 PRINT FN Pi<23,21) 5 PDi: COLOR 15,0:RET 

URN 

650 PRINT FN Pi<17,20)|" " 

660 PRINT FN Pi<18,21>5" " 

670 COLOR 6,0:PRINT FN Pi<16,19) 5 PC* 

690 RETURN 

700 PRINT FN Pi<17,19) 5 " " 

710 PRINT FN Pi<17,20);PS$ 

720 PRINT FN Pi<18,21) 5 PSi:COLOR 15,0:RET 
URN 

730 PRINT FN Pi<13,10) 5 "G A M E OVER" 
740 PRINT FN Pi<12,12) 5 "PRESS KEY TO STAR 
T" 

750 SOUND 1,1310,155,151,5 

760 IF PEEK <8cH85F0) =255 THEN 760 ELSE RUN 



CAMPAGNA ABBONAMENTI!!! 



La rivista LASER COMPUTER CLUB, ha una cadenza bimestrale. Ogni numero costa L. 4.000. 
Può essere richiesta alla SOFIN s.r.l. - Laser Computer Club - P.zza del Popolo, 14, 22100 COMO, 
allegando L. 4.000, oppure sottoscrivendo l'abbonamento annuale (1 numero GRATIS!!!). 


Desidero sottoscrivere un abbonamento annuo alla rivista LASER COMPUTER CLUB (6 numeri, L. 20.000). 
Per il pagamento deH’importo dovuto attendo vostro bollettino di versamento postale. 

Vogliaste inviare la rivista al seguente indirizzo: 

Coanone Nome 


Via 


Cap. 

Città 

Prov. 

Data 

Firma 



la presente offerta è valida solo per l’Italia. 

SI RACCOMANDA DI SCRIVERE IN STAMPATELLO. 



Ritagliare e spedire in busta chiusa a: 

SOFIN s.r.l. - LASER COMPUTER CLUB - P.zza del Popolo, 14 - 22100 COMO 
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Star Trek 

adventure per laser 500/310 


S = LUX PERCORSI 

C = DECINE DI MEGA 

CONSUMATI 

F = DECINE DI MEGA 

PERDUTI NEL CASO DI 

DANNI RIPORTATI DA 

UNA COLLISIONE DI 

METEORITI 

M = NUMERO DEI 

REATTORI 

A$= INPUT COMANDI 
A = NUMERO DEL CO¬ 
MANDO DATO 
X = DIREZIONI DELLA 
NAVE KLINGON DAL¬ 
LA QUALE STA AT¬ 
TACCANDO. 

NB: Battere con il n. 9 
per videare la tabella 
dei comandi. 

Solo per la versione L. 
310 


100 '***************** ********** 

110 ’** STAR TREK ** 

120 ’** ADVENTURE ** 

130 ’** LISTATO PER LASER 310 ** 

140 ’**A CURA DELLA REDAZIONE** 

150 ’*************************** 

180 CLS:PRI NT :PRINT 
190 S=0:C=303:F=0:M=4 

200 PRINT" - STAR TREK ADVENTURE - " 

210 PRINT 

220 INPUT" ISTRUZIONI (S/N)";At 
230 IF LEFT$(A$,1)="N"THEN490 
240 CLS 

250 PRINT"LO SCOPO DI QUESTA SIMULAZIONE" 
260 PRINVE' DI PERCORRERE 400 LUX OLTRE" 
270 PRINT“LE GALASSIE PER RECUPERARE UNA" 
280 PRINT"ASTRONAVE DELLA FEDERAZIONE" 

290 FRINT"STELLARE, IN AVARIA.":PRINT 
300 PRINT"DURANTE IL VIAGGIO E’ POSSIBILE" 
310 PRINT"INCAPPARE IN UNA PIOGGIA DI" 

320 PRINT"METEORITI 0 ESSERE ATTACCATI DA" 
330 PRINT"UNA ASTRONAVE DEI KLINGON." 

340 PRINT"FAI ATTENZIONE A NON SPRECARE " 


Il programma è estre¬ 
mamente semplice e si 
può dividere in quattro 
parti fondamentali. 

- la prima parte riguar¬ 
da l'attacco di una na¬ 
ve dei Klingon 

- la seconda riguarda la 
collisione con delle 
meteoriti e gli even¬ 
tuali danni riportati 
dalla nave ENTER¬ 
PRISE 

- la terza comunica lo 
spazio percorso in 
LUX e l'energia rima¬ 
nente nei cristalli 

- la quarta riguarda 
l’individuazione della 
nave in avaria. 

COME SI GIOCA: 

A questo punto è ne¬ 


cessario l’intervento 
dell'utente che deve 
impartire dei comandi 
elencati nella tabella in 
fondo al video. 

In pratica egli alla do¬ 
manda -COMANDI- de¬ 
ve rispondere con il nu¬ 
mero corrispondente 
al comando desiderato. 
In questa parte si pos¬ 
sono utilizzare solo i co¬ 
mandi da 1 a 5. che de¬ 
terminano il cambio di 
rotta dell'astronave o il 
lancio dei raggi fotonici. 
Lo scopo è quello di di¬ 
rigere la propria astro¬ 
nave contro la nave dei 
Klingoniani fino a tro¬ 
varsi uno davanti all'al¬ 
tro. 


A questo punto si do¬ 
vrà impartire il coman¬ 
do 5 con il quale si di¬ 
struggerà l'astronave 
dei klingon. e si passe¬ 
rà alle fasi successive 
del programma. 

Se nella fretta di dare 
i comandi da 1 a 5 si 
dovesse sbagliare l'a¬ 
stronave si porterà al¬ 
le vostre spalle facen¬ 
do fuoco con i laser. 
Terminato lo scontro 
con i klingon, si dovrà 
procedere con la rotta 
designata dal compu¬ 
ter. premendo il nume¬ 
ro 6 per continuare il 
viaggio. 

VARIABILI USATE DAL 
PROGRAMMA: 
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350 PRINT“TROPPA ENERGIA ! “ 

360 PRINT"E IN OLTRE I RAGGI TRATTORI" 

370 PRINT“POSSONO ESSERE USATI SOLTANTO “ 

380 PRINT“UNA VOLTA !" 

390 PRINT TAB( 8 ); 

400 INPUT“PREMI RETURN";A$ 

410 CLS:PRINT 

420 PRI NT “SE L* ENERGIA TERMINA PRIMA DEL" 

430 PRINT“RAGGIUNGIMENTO DEL QUADRANTE" 

440 PRINT“0 VIENI DISTRUTTO, AVRAI" 

450 PRINT“FALLITO !!!":PRINT 
460 PRINT“PREMERE IL TASTO 9 PER" 

465 PRINT"VEDERE I COMANDI" 

470 PRINT:PRINT TAB( 8 ); 

480 INPUT“PREMI < RETURN )“5 A* 

490 CLS 

500 PRINT“HAI APPENA VARCATO IL NOSTRO “ 

510 PRINT“SISTEMA SOLARE" 

520 SOUND 0,5:IF RND<10)>5 THEN 1010 
530 CLS 

540 PRINT"UNA NAVE KLINGON TI STA" 

545 PRINT“ATTACCANDO“ 

550 X=RND( 5 ) +1 :PRINT 
560 IF X=1 THEN 630 
570 IF X=2 THEN 640 
580 IF X=3 THEN 650 
590 IF X=4 THEN 660 
600 IF X=5 THEN 670 
610 IF X =6 THEN 730 
620 GOTO 670 

630 PRINT“DALL"ALTO":GOTO 680 
640 PRINT“DAL BASSO":GOTO 680 
650 PRINT“DA SINISTRA": GOTO 680 
660 PRINT“DA DESTRA":GOTO 680 
670 PRINT“DAL DAVANTI" 

680 PRINT: INPUT“-COMANDI -"5 A 
690 IF A<9 THEN 720 ELSE GOSUB 1840 
700 "PRINT3488 ,5 
710 GOTO 680 

720 PRINT:IF A=X THEN 810 

750 PRINT“LA NAVE KLINGON E" DIETRO DI TE" 

740 PRINT“E SPARA CON DEI RAGGI LASER!":PRINT 

750 IF RND(20)>10 THEN 1750 

760 PRINT"I SCUDI DI ENERGIA HANNO " 

770 PRINT"RETTO IL FUOCO DEI KLINGON" 

780 PRINT 

790 X = 1 :C=C-1-F 

800 G0T0680 

810 IF A=5 THEN 830 

820 GOTO 860 

830 CLS 

840 PRINT“LA NAVE KLINGON E" DISTRUTTA" 

850 GOTO 1150 

860 PRINT“I KLINGON SONO ORA" 

870 X=INT(RND<4)+1) 

880 IF X=1 THEN 930 
890 IF X=2 THEN 940 
900 IF X=3 THEN 950 
910 IF X=4 THEN 960 
920 GOTO 970 

930 PRINT“SOPRA DI TE":GOTO 980 
940 PRINT“SOTTO DI TE": GOTO 980 
950 PRINT“ALLA TUA SINISTRA": GOTO 980 
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960 FRINT"ALLA TUA DESTRA":GOTO 980 
970 FRINT"DAVANTI A TE" 

980 C=C-1-F 

990 IF C<=0 THEN1720 

1000 GOTO 680 

1010 IF RND(10)>5 THEN 1150 

1020 CLSSPRINT"COLLISIONE CON DEI ASTEROIDI" 
1030 FRINT"DANNI RILEVATI:": FRINT 
1040 IF INT(RND <10))>3 THEN 1090 
1050 F=F+2 

1060 FRINT"PERDITA D'ENERGIA" 

1070 FRINT"DAI CRISTALLI DIRILIO" 

1080 GOTO 1150 

1090 IF RND<10)>4 THEN 1140 

1100 M=M-1 

1110 FRINT"SEI STATO COLFITO AL REATTORE" 

1120 IF M=0 THEN 1750 
1130 GOTO 1150 

1140 FRINT"NESSUNA AVARIA": FRINT 
1150 S=S+10+INT(RND(5)) 

1160 C=C-1-F 
1170 IF S>400 THEN 1380 
1180 IF C<=0 THEN 1730 
1190 REM SITUAZIONE 
1200 FRINT:FRINT:FRINT 

1210 FRINT" - SITUAZIONE -" 

1220 PRINT" HAI FERCORSO ";S;"LUX" 

1230 FRINT" ENERGIA * ;C*10;"MEGA" 

1240 FRINT" REATTORI IN AVARIA ";4-M 
1245 IF A=9 THENGOSIJB1840 
1250 FRINT: INPUT" -COMANDI-"; A 

1260 IF A>5 THEN 1280 

1270 PRINT" SEI FUORI ROTTA":GOTO 1160 

1280 IF A=6 THEN 520 

1290 IF A=8 THEN 1330 

1300 IF A>8 THEN CLS:GOTO1200 

1310 PRINTTAB<5);"NULLA DA SEGNALARE" 

1320 GOTO 520 

1330 CLS:FRINÌ"HAI LANCIATO I RAGGI TRATTORI" 

1340 FRINT"FRIMA DI ARRIVARE SUL QUADRANTE" 

1350 FRI NT-.GOTO 1770 

1360 GOTO 1250 

1370 REM OBBIETTIVO 

1380 IF RND <3)=0 THEN1620 

1390 FRINT"E' MOLTO BUIO E L* ASTRONAVE" 

1400 FRINT"NON SI VEDE" 

1410 INPUT"-COMANDI-";A 
1420 IF A>6 THEN 1450 

1430 FRINT"LE MANOVRE ELUSIVE NON SERVONO" 

1440 GOTO 1340 

1450 IF A<8 THEN 1480 

1460 GOSUB 1840 

1470 GOTO 1340 

1480 IF A=7 THEN 1570 

1490 FRI NT "HAI RIMORCHIATO L’ASTRONAVE" 

1500 FRINT"LANCIANDI I RAGGI TRATTORI" 

1510 PRINT"ALLA CIECA !" 

1520 GOTO1770 

1530 FRINT"HAI MANCATO L'ASTRONAVE" 

1540 FRINT"ORA NON HAI PIU’ ENERGIA" 

1550 FRINT"PER RIMORCHIARE L'ASTRONAVE" 

1560 GOTO 1770 
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1570 REM ********************* 

1580 IF RND(3)=0 THEN 1620 
1590 PRINT” I RAGGI SENSORI SONO 11 
1600 FRINT“STATI INUTILI” 

1610 GOTO 1340 

1620 FRINT”IL NAVIGATORE HA INDIVIDUATO” 
1630 F'R I NT "L’ ASTRONAVE IN AVERI A” 

1640 INPUT“-COMANDI-”;A 
1650 IF A< >8 THEN 1750 
1660 CLSsPRINTSPRINT 

1670 PRINT” - COMPLIMENTI-” 

1680 PRINTSPRINTSPRINT 

1690 PRINT” MISSIONE COMPIUTA” 

1700 FRINTsPRINT 
1710 GOTO 1770 
1720 PRINT 

1730 FRINT“HAI TERMINATO L ? ENERGIA"sPRINT 
1740 GOTO1770 

1750 PRINT”LA TUA NAVE E* STATA” 

1760 FRINT"MISERAMENTE DISTRUTTA ! !”sPRINT 
1770 INPUT“VUOI RIPROVARE”;A* 

1780 XF LEFT*<A*,1)=”N” THEN 1810 

1790 S=OsC=303s F=Os M=4 

1800 GOTO 490 

1810 F'R I NT ” OK CIRI VEDI AMO” 

1320 FRINT"LA PROSSIMA VOLTA” 

1830 GOTO 1920 
1840 PRINT#208*; 

1 £50 FRI NT” - ” 

1860 PRINT"1=SALE 2=SCENDE” 

1870 FRINT”3=VIRA A SINISTRA 4=DESTRA” 

1880 F'RINT”5=RAGGI FOTONICI 6=R0TTA MISS” 
1890 PRINT”7»RAGGI SENSORI B=RAGGI TRAT." 
1900 RETURN 
1920 END • 


100 

110 

120 

130 

140 

150 

160 

170 

1B0 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


’)M*****************)M****** 

’* * STAR TREK * * 

’ ** A D V E N T U R E ** 

’ ** LISTATO PER LASER 500 ** 

* **A CURA DELLA REDAZIONE** 

• *************************** 

COLOR 15,Os CLSs TEXT 40sFRINTsFRINT 
S=0sC=303sF=0:M=4SPRINT TAB(5); 

PRINT ”- STAR TREK ADVENTURE - " 

PRINT:PRINT:PRINT 

INPUT " ISTRUZIONI <S/N)”;A* 

IF LEFT$<A*,1)=”N” THEN 470 
CLSs POKE &H85E6,8SPRINT 

PRINT "Lo scopo di questa simulazione” 
PRINT "e* di percorrere 400 LUX oltre” 
PRINT "le galassie per recuperare una” 
PRINT "astronave della federazione" 
PRINT "stellare, in avari a.”sPRINT 
PRINT "Durante il viaggio e" possibile” 
PRINT "incappare in una pioggia di” 
PRINT "meteoriti o essere attaccati da” 
PRINT "una astronave dei Klingon." 

PRINT "Fai attenzione a non sprecare” 
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330 

340 

350 

360 

370 

3B0 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 


PRINT “troppa energia !" 

PRINT "e in oltre i raggi trattori" 

PRINT “possono essere usati soltanto" 

PRINT “una volta !" SPRINT 
PRINT TAB( 8 ); 

LINE INPUT "PREMI (RETURN) “;A$ 

CLSSPRINT 

PRINT “Se l'energia termina prima del" 

PRINT “raggiungimento del quadrante" 

PRINT “o se vieni distrutto, avrai" 

PRINT "fallito !!!"SPRINT 

PRINT "I comandi dell'astronave sono" 

PRINTs PRINT TAB( 8 ); 

LINE INPUT "PREMI (RETURN)";A$ 

P0KE &H85E6, Os GOSUB 1740s CLSs PRINT: PRINT 
PRINT "HAI APPENA VARCATO IL NOSTRO SISTEMA" 
PRINT "SOLARE" 

SOUND 0,5sIF RND(1)*10>1 THEN 910 
CLS:RANDOMIZE 

PRINT "UNA NAVE KLINGON TI STA ATTACCANDO" 

X = INT(RND(1)*5)+1 SPRINT 


ON X GOTO 560,570,580,590,600,660 


GOTO 600 

PRINT "DALL'ALTO"sGOTO 610 
PRINT "DAL BASSO":GOTO 610 
PRINT "DA SINISTRA":GOTO 610 
PRINT "DA DESTRA":GOTO 610 
PRINT "DAL DAVANTI" 

PRINT sINPUT "-COMANDI - "5 A 
IF A<9 THEN 650 
PRINTSPRINT 
GOTO 610 

PRINT sIF A=X THEN 740 

PRINT "LA NAVE KLINGON E * DIETRO DI TE 
PRINT "E SPARA CON DEI RAGGI LASER !": 
IF INT(RND<1)*20>>10 THEN 1650 
PRINT "I SCUDI DI ENERGIA HANNO" 

PRINT "RETTO IL FUOCO DEI KLINGON" 
PRINT 

X=1 :C=C-1 — F 
GOTO 610 
IF A=5 THEN 760 
GOTO 790 

CLS:PRINT:PRINT TAB(5); 

PRINT "LA NAVE KLINGON E' DISTRUTTA" 
GOTO 1050 

PRINT "I KLINGON SONO ORA" 

X=INT(RND(1)*5> + l 


PRINT 


ON X GOTO 830,840,850,860 
GOTO 870 

PRINT "SOPRA DI TE":GOTO 880 
PRINT "SOTTO DI TE": GOTO 880 
PRINT "ALLA TUA SINISTRA": GOTO 880 
PRINT "ALLA TUA DESTRA":GOTO 880 
PRINT "DAVANTI A TE" 

C=C-1-F 

IF C<=0 THEN 1620 
GOTO 610 

IF INT(RND(1)*10)>3 THEN 1050 
CLS:PRINT "COLLISIONE CON DEI ASTEROIDI" 
PRINT "DANNI RILEVATI:":PRINT 
IF INT(RND(1)*10)>3 THEN 990 


F=F+2 
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960 FRI NT "PERDITA DI ENERGIA’* 

970 PRINT 11 DAI CRISTALLI DIRILIO” 

9B0 GOTO 1050 

990 IF INT(RND(1)*10)>4 THEN 1040 
1000 M=M-1 

1010 PRINT ”SEI STATO COLPITO AD UN REATTORE” 
1020 IF M=0 THEN 1650 
1030 GOTO 1050 

1040 PRINT ”NESSUA AVARIA”:PRINT 
1050 S=S+10+INT(RND(1)*5) 

1060 C=C-1—F 
1070 IF S>400 THEN 1280 
1080 IF C<=0 THEN 1630 
1090 REM SITUAZIONE 


1 100 
1110 
1120 
1130 
1140 
1150 
1160 
11 70 
1180 
1 190 


PRINT:PRINT:PRINT 

PRINT ” -SITUAZIONE-” 

PRINT ” HAI PERCORSO ,, 5 Ss”LUX ,, 

PRINT ” ENERGIA ” 5 C*IO”NEGA” 

PRINT ” REATTORI IN AVARIA ”;4-M 
F'R I NT : INPUT ” -COMANDI - ” ; A 

IF A>5 THEN 1180 

PRINT ” SEI FUORI ROTTA”:GOTO 1060 
IF A =6 THEN 500 
IF A =8 THEN 1230 


1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 


GOTO 1050 

PRINT "NESSUA AVARIA”:PRINT 
S=S+10+INT(RND(1)*5) 

C=C-1-F 

IF S>400 THEN 1280 
IF C<=0 THEN 1630 
REM SITUAZIONE 
PRINT:PRINT:PRINT 

PRINT ” -SITUAZIONE-” 

PRINT ” HAI PERCORSO ”;S;”LUX” 

PRINT ” ENERGIA ”;C*10"MEGA” 

PRINT ” REATTORI IN AVARIA ”;4-M 

PRINT: INPUT ” -COMANDI-”; A 

IF A>5 THEN 1180 

PRINT ” SEI FUORI ROTTA”:GOTO 1060 

IF A =6 THEN 500 

IF A =8 THEN 1230 

IF A >8 THEN CLS:GOTO 1100 

PRINT TAB(5);"NULLA DA SEGNALARE" 

GOTO 500 

CLS:PRINT ”HAI LANCIATO I RAGGI TRATTORI” 
PRINT "PRIMA DI ARRIVARE SUL QUADRANTE” 
FRI NT-.GOTO 1670 
GOTO 1150 
REM OBIETTIVO 

IF INT(RND(1)*3=0 THEN 1520 
PRINT "E* MOLTO BUIO E L’ASTRONAVE” 

PRINT "NON SI VEDE” 

INPUT "-COMANDI- ";A 
IF A >6 THEN 1350 

PRINT "LE MANOVRE ELUSIVE NON SERVONO” 

GOTO 1240 

IF A <8 THEN 1380 

GOSUB 1740 

GOTO 1240 

IF A=7 THEN 1470 

PRINT "HAI RIMORCHIATO L>ASTRONAVE” 

PRINT "LANCIANDO I RAGGI TRATTORI ” 

PRINT "ALLA CIECA” 


10 













1420 GOTO 1670 

1430 PRINT "HAI MANCATO L* ASTRONAVE 1 * 

1440 PRINT "ORA NON HAI PIU ' ENERGIA" 

1450 PRINT "PER RIMORCHIARE L*ASTRONAVE" 

1460 GOTO 1670 

1470 REM tttttttttttttttttttttttttttt 

1480 IF INT(RND <1)*3)=0 THEN 1520 
1490 PRINT "I RAGGI SENSORI SONO" 

1500 PRINT "STATI INUTILI" 

1510 GOTO 1240 

1520 PRINT "IL NAVIGATORE HA INDIVIDUATO" 

1530 PRINT "L’ASTRONAVE IN AVARIA" 

1540 INPUT "-COMANDI- ";A 
1550 IF A<>8 THEN 1650 
1560 CLS:PRINT SPRINT 

1570 PRINT "-COMPLIMENTI-" 

1580 PRINT SPRINT SPRINT 

1590 PRINT " MISSIONE COMPIUTA" 

1600 PRINTSPRINT 
1610 GOTO 1670 
1620 PRINT 

1630 PRINT "HAI TERMINTO L 3 * ENERGIA" s PRINT 
1640 GOTO 1670 

1650 PRINT "LA TUA NAVE E * STATA" 

1660 PRINT "MISERAMENTE DISTRUTTA !!"SPRINT 

1670 INPUT "VUOI RITENTARE "$AS 

1680 IF LEFT*<A*,1)="N" THEN 1710 

1690 S=0sC=303sF=0sM=4 

1700 POKE &H85E5,24s GOTO 470 

17iO PRINT "OK CI RIVEDIAMO" 

1720 PRINT "LA PROSSIMA VOLTA" 

1730 POKE S<H85E5 f 24 s GOTO 1820 

1740 PRINT CHR$(27)CHR$(161)CHR$ C32)CHR$(50); 


1750 

PRINT 

1» 


- COMANDI - 

11 

1760 

PRINT 

11 

1=SALE 


2=SCENDE 

11 

1770 

PRINT 

11 

3=VIRA 

A SINISTRA 

4=VIRA A DESTRA 

n 

1780 

PRINT 

11 

5=RAGGI 

FOTONICO 

6=R0TTA MISSIONE 

11 

1790 

PRINT 

11 

7=RAGGI 

SENSORI 

8=RAGGI TRATTORI 

11 


1800 POKE &H85E5,18 
1810 RETURN 
1820 END 




















m > Software 

Toto. Compilatore di sistema 
basato 

sulle probabilità per laser 500/310 


Il programma genera 
un sistema basandosi 
sulle probabilità di vit¬ 
toria di una squadra, 
inserendo i dati nel si¬ 
stema. 

Supponiamo di dover 
pronosticare il risulta¬ 
to di una partita di cal¬ 
cio, TORINO - COMO. 
1 a DOMANDA DEL 
COMPUTER: 
Probabilità di vittoria 
della squadra di casa 
(diamo n. 1) 
Probabilità di pareggio 
(diamo n. 3) 
Probabilità di vittoria 


della squadra ospite 
(diamo n. 6): 

Sviluppo ... 

Abbiamo così assegna¬ 
to 1 probabilità su 10 
al verificarsi del segno 

I sulla schedina. 3 su 
10alsegnoXe6su 10 
di verificarsi il segno 2. 

II computer nel tabel¬ 
lone riassuntivo, mo¬ 
strerà le probabilità in 
percentuali, che in 
questo caso sono, 
10% per il segno 1 
30% per il segno X 
60% per il segno 2 
corrispondenti a quel¬ 


le introdotte. 

In questo modo potete 
assegnare le probabili¬ 
tà desiderate, di ogni 
squadra, senza essere 
costretti a complicati 
calcoli o ripensamenti. 
Nel caso non sia soddi¬ 
sfacente il risultato di 
una partita è possibile 
chiedere la modifica 
delle percentuali, indi¬ 
cando il numero della 
partita desiderata. 

Al termine di tutto que¬ 
sto vi verrà chiesto il 
numero delle triple da 
inserire nel sistema, e il 


numero delle doppie, 
mostrando in breve il si¬ 
stema completo, indi¬ 
cando il numero delle 
colonne ed il costo. 

Fin qui il lavoro dell'u¬ 
tente; che cosa fa in 
pratica il computer? 
Molto semplicemente 
vi suggerisce i vari pos¬ 
sibili risultati con le 
specifiche indicate da 
voi, che in base alle 
probabilità genera il si¬ 
stema, assegnando le 
triple o le doppie la do¬ 
ve si potrebbe verifica- 
re qualche sorpresa. 


1 'M*******#*****#***#**#**####*#*##* 

2 ’*** LASER TOTO 1X2 *** 

4 •■■*** LISTATO PER LASER 500 *** 

5 •’ * * * * * * 

6 •’*** A CURA DELLA REDAZIONE *** 

7 ’*********************************** 

10 CLEAFv 5000: TEXT 40 

20 DIN A* <13,3) , A < 13, 12) ,W*<25) , TR<13,2> ,DP<13,2> , DF'$ (13) 
30 DEF FN F’$ < X , Y) =CHR$ (27) +CHR$ ( 161 ) +CHR$ (31+X) +CHR$ (31 + Y) 
40 FOR 1=1 TO 25:W$(I)=FN P* <X,I):NEXT:CLS 

50 INPUT "CONCORSO N’" 5 NRsINPUT "COSTO DI UNA COLONNA";COL 
60 FOR 1=1 TO 13 

70 CLS:PRINT CHR*<28);"PARTITA N’"; I :PRINT 
80 PRINT "SQUADRA DI CASA ";:INPUT A$ 

90 A$(1,1)=LEFT$(A$+STRING$(10," ">,10) 

100 PRINT "SQUADRA OSPITE "; : INPUT A$:PRINT 
110 A*(I,?}=LEFT*<A*+STRING*<10," "),10> 

120 GOSUB 800 
130 NEXT I 

140 CLS:PRINT W$(1);"CONCORSO N";NR :PRINT 

150 FOR 1=1 TO 13:A*<1,3)="":NEXT 

160 FOR I=J TO 13:PRINT A*<I,1);"-";A$<I,2); 
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170 FOR J-=l TO 3:A$-“-STR$(INT(fì(I,8H J> ) ) 

180 TB=(23+5*J-LEN(A*>>SPRINT TAB(TB);A$; 

190 NEXT:PRINT:NEXT 

200 PRINT W$(20);"VUOI CAMBIARE QUALCHE" 

210 PRINT "PERCENTUALE";: INPUT R$ 

220 IF LEFT*(R$,1><>"3" THEN 280 

230 PRINT "DI QUALE PARTITA (1-13)";sINPUT I 

240 IF I<1 OR I>13 THEN PRINT CHR$(24);CHR$(24): GOTO 230 

250 CL.S SPRINT W* (5) ; "PARTITA N’";I 

260 PRINT A*(1,1);; A*(1,2) 

27O GOSUB 800:GOTO 140 

280 CLSsPRINT "NUMERO DI TRIPLE DESIDERATE "; : INPUT TR 
290 IF TR>13 THEN 280 

300 IF TR-13 THEN PRINT "SISTEMA INUTILE": GOTO 330 
310 PRINT W*(5);"NUMERO DI DOPPIE DESIDERATE"INPUT DP 
320 IF DPX13-TR) THEN 310 

330 NC=INT < (3' % TR) * (2' DP) ) : PRINT "SISTEMA DA " ; 

340'PRINT USINO "#######";NC;:PRINT " COLONNE" 

350 PRINT "DEL COSTO DI L.";USING "############";NC*COL 
360 PRINT W*(20);:LINE INPUT "PREMERE IL TASTO RETURN";RET$ 
370 PRINT W*<20>;" ATTENDERE IL SISTEMA ! 

380 IF TR=0 THEN 470 

390 FOR F1=1 TO 2 

400 FOR F2=F1+1 TO 13 

410 IF TR(FI » 2)<TR(F2,2) THEN 450 

420 FOR F3=1 TO 2:RT(F3>=TR(FI,F3>:NEXT 

430 FOR F3=1 TO 2sTR(FI,F3)=TR(F2,F3):NEXT 

440 FOR F3=1 TO 2:TR(F2,F3>=RT(F3):NEXT 

450 NEXT:NEXT:FOR Fl=i TO TR 

460 A*(TR(F1,1),3)="i X 2":NEXT 

470 IF (13—DP—TR)=0 THEN 680 

480 FOR 1 = 1 TO 13:T$="1":DP(I,1)=I :TS=A(1,9) 

490 IF A(I,10)>TS THEN T*="X":TS=A(I,10) 

500 IF A(I,11)>TS THEN T*="2":TS=A<I,11> 

510 DP$(I)=T*:DP(I,2)=TS 
520 NEXT 

530 FOR F1=1 TO 12 

540 FOR F2=F1+1 TO 13 

550 IF DP(F1,2)>DP(F2,2) THEN 620 

560 FOR F3=1 TO 2 

570 F'D (F3) =DP (FI , F3) : NEXT: PD$=DP* (FI ) 

5B0 FOR F3=1 TO 2:DP(FI,F3)=DP(F2,F3): 

590 NEXT:DP$(FI)=DP$(F2) 

600 FOR F3=1 TO 2:DP(F2,F3)=PD(F3) 

610 NEXT : DF'$ (F2) =PD$ 

620 NEXT:NEXT:F1 = 1 :F2=l 

630 IF F2XI3-DP-TR) OR FI >13 THEN 680 
640 IF A*(DP(F1,1),3)<>"" THEN 660 
650 A$(DP(FI,1),3)=DP*(F1):F2=F2+1 
660 F1=F1 +1 : GOTO 630 
670 IF DP=0 THEN 740 

680 FOR 1=1 TO 13:IF A*(I,3)<>"" THEN 730 
690 PD=A(1,3):DP*="1 X” 

700 IF A(I,5)>PD THEN PD=A(I,5):DP$=”1 2" 
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710 IF A(I,7)>PD THEN PD=A(I,7):DP$="X 2" 

720 A$(I,3>=DP$ 

730 NEXT 

740 CLB:FOR 1=1 TO 13 

750 PRINT A*(I, 1) ; ; A$ < 1,2) ;TAB(30) ;A*(I,3) 

760 NEXT 

770 PRINT "VUOI SCEGLIERE UN ALTRO SISTEMA": INPUT R$ 
780 IF LEFT$(R$,1)="S" THEN 140 
790 END:'PROGRAM 

800 PRINT "PROBABILITÀ' DI VITTORIA DELLA" 

810 PRINT "SQUADRA DI CASA"INPUT A(1,9):PRINT 
820 PRINT "PROBABILITÀ' DI UN RISULTATO" 

830 PRINT "DI PARITÀ'";: INPUT A(1,10):PRINT 
840 PRINT "PROBABILITÀ' DI VITTORIA DELLA" 

850 PRINT "SQUADRA OSPITE"INPUT A(I,11) 

860 A(I,12)=0:FOR J=9 TO 11 
870 Ad, 12) = A ( 1, 12) + A (I, J ) : NEXT 

880 FOR J=9 TO 11: Ad,J)=A(I,J)* 100/A(1,12):NEXT 

890 Ad, 12) =0: FOR J=9 TO 11 

900 Ad, 12) =A ( 1, 12) +A ( I, J ) : NEXT 

910 Ad, 1)=A(I, 12)/3 

920 A(I,2)=0:FOR J=9 TO 11 

930 A (1,2 ) = A (I,2)+(A(I,J) - A (1,1) )''2: NEXT 

940 A(I,2)=A(I,2)/3 

950 TR(1,1) = I :TR(1,2)=A(1,2) 

960 A(I,3)=(A(I,9)+A(I,10))/2 

970 A(I,4)=0:FOR J=9 TO 10 

980 A ( 1,4) =A <I,4) + (A(I,J) - A (1,3) ) "'2: NEXT 

990 A(I,4)=A(I,4)/2 

1000 A(ì,5)=(A(I,9)+A(I,11))/2 

1010 A(I,6 )=0:FOR J=9 TO 11:IF J=10 THEN 1030 

1020 A(I,6)=A(I,6)+(A(I,J)-A(I,5)) A 2 

1030 NEXT 

1040 A(I,7)=(A(I,10)+A(I,11))/2 

1050 A(I,8 )=0:FOR J=10 TO 11 

1060 A ( 1,8) =A (I,8 )+(A(I,J) - A (1,7) )''2: NEXT 

1070 A(I,8)=A(I,8)/2 

1080 RETIJRN 
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*** 
*** 
*** 
* * * 


********************************* ;t** 

’*** LASER TOTO 1X2 *** 

» *** 

’*** LISTATO PER LASER 310 

* *** 

’*** A CURA DELLA REDAZIONE 
************************************ 

CLEAR 5000:TEXT 40 

DIM A$(13,3),A(13,12),W$(25),TR(13,2) , DP <13,2) ,DP*<13) 
CLS 

INPUT "CONCORSO N* " ;NR:INPUT "COSTO DI UNA COLONNA"; COI 
FOR 1=1 TO 13 

CLS:PRINT "PARTITA N’";I:PRINT 
PRINT "SQUADRA DI CASA ";:INPUT A* 

A$(1,1)=LEFT$(A$+" ",10> 

PRINT "SQUADRA OSPITE INPUT A$:PRINT 
A*(I,2)=LEFT*<A*+" ",10> 

GOSUB 435 
NEXT I 

CLS:PRINT "CONCORSO N";NR :PRINT 

FOR 1=1 TO 13:A*<1,30="":NEXT 

FOR 1=1 TO 13:PRINT A$(1,1);"-";A$(1,2); 

FOR J=1 TO 3:A*=STR*<INT<A<I,B+J))) 

PRINT A*; 

NEXT:PRINT:NEXT 

PRINT "VUOI CAMBIARE QUALCHE" 

PRINT "PERCENTUALE";: INPUT R$ 

IF LEFT$<R*,1)<>"S" THEN 175 

PRINT "DI QUALE PARTITA (1-13)"; : INPUT I 

IF I<1 OR I>13 THEN PRINT CHR$(27);CHR$ <27): GOTO 150 

CLS:PRINT "PARTITA N’";I 

PRINT A*(I,1);A*(1,2) 

GOSUB 435:GOTO 105 

CLS:PRINT "NUMERO DI TRIPLE DESIDERATE ";:INPUT TR 
IF TR>13 THEN 175 

IF TR=13 THEN PRINT "SISTEMA INUTILE": GOTO 200 
PRINT W*(5);"NUMERO DI DOPPIE DESIDERATE";:INPUT DP 
IF DPX13-TR) THEN 190 

NC= INT < (3''TR) * (2''DP) ) : PRINT "SISTEMA DA "; 

PRINT USING "#######";NC;:PRINT " COLONNE" 

PRINT "DEL COSTO DI L.";USING "############";NC*COL 
INPUT "PREMERE IL TASTO RETURN";RET$ 

PRINT CHR$(27);" ATTENDERE IL SISTEMA ! 

IF TR=0 THEN 270 

FOR F1=1 TO 2 

FOR F2=F1+1 TO 13 

IF TR(FI,2)<TR(F2,2) THEN 260 

FOR F3=1 TO 2:RT <F3)=TR(FI,F3) : NEXT 

FOR F3=1 TO 2:TR(FI,F3)=TR(F2,F3):NEXT 

FOR F3=l TO 2:TR(F2,F3)=RT(F3):NEXT 

NEXT:NEXT:FOR Fl=l TO TR 

A*<TR(F1,1),3)="1 X 2":NEXT 

IF (13-DP—TR)=0 THEN 375 

FOR 1=1 TO 13:T*="1":DP(I,1)=1:TS=A(I,9) 
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280 IF Ad,IO)>TS THEN T1>=" X " : TS=A (1, 10) 

2B5 IF A (1,11 ) >TS THEN T*="2" : TS=A < 1, 11 ) 

290 DP$(I)=T % :DP(1,2)=TS 
295 NEXT 

300 FOR Fl = l TO 12 

305 FOR F2=F1+1 TO 13 

310 IF DP (F1,2) >DP (F2, 2) THEN 345 

315 FOR F3=1 TO 2 

320 PD <F3)=DP(FI,F3):NEXT:PD$=DP$(FI) 

325 FOR F3=1 TO 2:DP(FI,F3)=DP(F2,F3) : 

330 NEXTs DP$(FI)=DP$(F2) 

335 FOR F3=1 TO 2:DP(F2,F3)=PD(F3) 

340 NEXT:DP$(F2)=PD$ 

345 NE X T: NE XT:F1 = 1:F2=1 

350 IF F2X13-DP-TR) OR FI>13 THEN 375 

355 IF A$ ( DP (FI, 1) ,3)0"" THEN 365 

360 A$(DP(FI,1),3)=DP$(F1):F2=F2+1 

365 F1 =F 1 +1 : GOTO 350 

370 IF DP=0 THEN 405 

375 FOR 1=1 TO 13:IF A*(I,3><>"" THEN 400 
380 PD=A(1,3):DP$="1 X" 

385 IF A(I,5)>PD THEN PD=A(I,5):DP*="1 2" 

390 IF A(I,7)>PD THEN PD=A(I,7):DP*="X 2” 

395 A* ( 1, 3) =DPS> 

400 NEXT 

405 CLS:FOR 1=1 TO 13 

410 PRINT A*(I,1);A$(I,2);TAB(25); A*(1,3) 

415 NEXT 

420 PRINT "VUOI SCEGLIERE" 

422 INPUT "UN ALTRO SISTEMA";R$ 

425 IF LEFT*(R*>,1>="S" THEN 105 
430 CLS:PRINT "END PROGRAM":END 
435 PRINT "PROBABILITÀ' DI VITTORIA DELLA" 

440 PRINT "SQUADRA DI CASA";-.INPUT A (1,9)-.PRINT 
445 PRINT "PROBABILITÀ' DI UN RISULTATO" 

450 PRINT "DI PARITÀ'";: INPUT A(1,10):PRINT 
455 PRINT "PROBABILITÀ' DI VITTORIA DELLA" 

460 PRINT "SQUADRA OSPITE" ;: INPUT A(I,11) 

465 A(I,12)=0:FOR J=9 TO 11 
470 Ad, 12) =A (I, 12)+A(I,J) :NEXT 

475 FOR J=9 TO 11 : A(I,J)=A(I,J)* 100/A(1,12):NEXT 

480 Ad, 12) =0: FOR J=9 TO 11 

485 Ad, 12) =A (I,12)+A(I,J): NEXT 

490 Ad, 1)=A(I, 12)/3 

495 A(I,2)=0:FOR J=9 TO 11 

500 A(I,2)=A(I,2)+(A(I,J)-A(1,1))^2:NEXT 

505 A(I,2)=A(1,2)/3 

510 TR(I,1)=1:TR(I,2)=A(I,2) 

515 A(I,3)=(A(I,9)+A(I,10))/2 

520 A(I,4)=0:FOR J=9 TO 10 

525 A ( 1,4 ) =A (I,4) + (A(I,J) - A (1,3) )''2: NEXT 

530 A <1,4)=A(1,4)/2 

535 A(I,5)=(A(I,9)+A(I,11))/2 

540 A(I,6 )=0:FOR J=9 TO 11:IF J=10 THEN 550 


16 









Software 



545 A ( I , 6 ) = A (I,6) + (A(I,J) - A (1,5)) ''2 
550 NEXT 

555 A(I,7)=(A(I,10)+A(I,11))/2 

560 A <1,8 )=0:FOR J = 10 TO 11 

565 A(I,8)=A(I,8)+(A<I,J)-A(I,7)) A 2:NEXT 

570 A <1,8)=A(1,8)/2 

575 RETURN 


Adventure: 

caccia alla tigre per laser 500/310 


Vi trovate in un luogo 
desolato e avete il com¬ 
pito di trovare e uccide¬ 
re la tigre che in passa¬ 
to ha fatto strage di 
uomini. 

Avete naturalmente bi¬ 
sogno di armi, ma qua¬ 
le arma sarà in grado di 
uccidere la tigre? 
Muovendovi molto cau¬ 
tamente dovete cerca¬ 
re il fucile che avete 
perso. 

Quando avrete trovato 
il fucile (se siete anco¬ 
ra vivi) potete uccidere 
la tigre. 


COMMENTI DEI LISTA¬ 
TI LASER 500/310 
10-40 = inizializzano 
le variabili 

50-55 = genera la po¬ 
sizione iniziale della zo¬ 
na da cui partire 


100-110 = stampa la 
descrizione della stan¬ 
za e dell'oggetto posto 
nella stessa stanza 
120-130 = controllano 
se il giocatore si trova 
in una stanza conte¬ 
nenti dei pericoli 
140-180 = stampano 
le possibili direzioni 
190 = richiede le istru¬ 
zioni 

200-210 = impedisco¬ 
no le varie direzioni 
215-220 = controlla se 
la risposta è una dire¬ 
zione 

240-270 = spostano il 
giocatore 

300 = manda alla rou¬ 
tine di stampa degli 
oggetti in possesso del 
giocatore 

330-420 = separa il 
verbo dal nome 
430-450 = stampa og¬ 
getti in dotazione 


510-590 = controllo 
del possesso o meno 
degli oggetti 
680-790 = descrivono 
le stanze e le possibili 
uscite 

800-920 = routine per 
fine gioco e richiesta di 
gioco 

LISTA DELLE VARIA¬ 
BILI 

SM = sabbie mobili 

LU = tigre 

DIM OG = locazione 

degli oggetti 

DIM 0G$ = nomi degli 

oggetti 

DIM OD$ = descrizione 
degli oggetti 
P = posizione del gio¬ 
catore 

P2 = posizione succes¬ 
siva 

0. E. N, S = direzioni 
nei quattro punti car¬ 
dinali OVEST. EST. 


NORD. SUD 
1$ = input comandi 
V$ = verbo 
N$ = nome 
D = dotazione 
A = aiuto 

VERBI USATI: 

PRENDI. PRENDERE. 
AFFERRARE. AFFER¬ 
RA. PRENDO, AFFER¬ 
RO. GETTARE. BUTTA¬ 
RE. GETTA. BUTTA. LA¬ 
SCIARE. LASCIA, AB¬ 
BANDONA. ABBANDO¬ 
NARE. UCCIDERE. UC¬ 
CIDI, AMMAZZA. AM¬ 
MAZZARE. SPARARE, 
SPARA. ELIMINARE, 
ELIMINA 


COMANDI: 

0 = OVEST. E = EST. 
N = NORD. S = SUD, 
D = DOTAZIONE. 

A = AIUTO 
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1 

’*************tt*M****t***x******** 

*-> 

? *** 

ADVENI URE 

** * 


’ t** 

-CACCIA ALLA TIGRE- 

*** 

4 

* >** 

LISTATO PER LASER 310 

*** 

5 

* 1 ** 

A CURA DELLA REDAZIONE 

*** 


6 r *************M************ ******** 

IO CL5:5H=OsLU»0 
1 7 . FOR 2-1 TO 3 

15 READ CG<I) f QGiM),OD*< I ) 

:g NFXT I 

20 TATA 7, IL COLTELLO,PER TERRA CE' UN COLTELLO 
22 DATA 1, IL FILILE, QUI C*E' IL TUO FUCILE 
40 DATA 13,LA FRUSTA,A TERRA C’E' UNA LUNGA FRUSTA 
50 P-INT <RND <14)) 

52 IF P-7 OR P -8 OR P*13 THEN 70 
55 GOTO 50 
60 P«P2 
70 PRINT 


■ 71 

IF 

«=•=1 

THEN 

680 

72 

IF 

P—2 

THEN 

700 

74 

IF 

P=7 

THEN 

720 

75 

IF 

P^3 

T HEN 

740 

76 

ir 

P-9 

THEN 

780 

77 

IF 

P-13 THEIv 

1 760 


78 IF P>! 3 THEN 800 
100 FOR 1-1 TO 3 

305 IF OGII)*P THEN FRI NT OD* < I ) 

1 JO NEXT I 

120 IF F-2 AND SN<>2 THEN 800 
130 IF P-9 ANI) LtJ< >2 THEN 810 
140 PRlNt "PUOI ANDARE SOLO •• 

150 IF N>0 THEN PRINT "A NORD” 

160 IF £>C THEN PRINT “A SUD” 

170 IF E>0 THEN PRINT "A EST*' 

180 IF 0»C THEN FRINÌ "A OVEST" 

190 B*="": I *- i,a s INPUT "ISTRUZIONI"; I* 

200 IF P-7 AND SM<>7 THEN 290 
210 IF P-9 AND LIJ02 THEN 290 
215 DI-LEFTia*, 1) 

220 IF DI="N" OR B*=”S” OR B*="E" OR B*="0" THEN 240 
230 GOTO 300 

240 IF Bt* !! N M AND N>0 THEN F2=P-5:G0T0 60 

250 IF B*="S" AND S>0 THEN P2-P+5:GOTO 60 

260 IF B*="E” AND E>0 THEN P2=P+lsG0T0 60 

270 JF B$ aH 0" AND 0>0 THEN P2«P-lsG0T0 60 

280 PRINT "NON PUOI ANDARE ”5 1*:G01U 60 

290 IF B*-"N” OR B*="S" OR B*=”E" OR B*="0” THEN XX** i 

295 lFXX»lTHENPRlNT N f40N PUOI FARLO ADESSO ! ! ! " :XX=0:G0T070 

300 IF Ii ="D" THEN 430 

310 IF R T SHT * <J *, 6 ) = " IJSC I RE " AND P=2 AND SM< >2 THEN 610 
320 IF I$-"A" THEN 480 
330 FOF: 1 = 1 TO LEN < I $ ) 

334 IF MID* <I*,I , 1) =" " THEN 360 
340 NEXT I 

350 PRINT "USARE PIU * PAROLE. " sGOTO 70 
360 FOR SX=1 TO LEN<1*> 

365 IF MID*< 11,SX,1) =" " THEN 380 

370 NEXT SX 

380 V*=LEFT*(I*,SX-1> 

382 N*=RIGHT*<I*, (LEN(I*)-SX>) 

390 IF V* 5 *" PRENDERE” OR V*="AFFERRARE" THEN 510 
395 I - V*="PRENDI" OR Via"AFFERRA” THEN 510 
3?e IF V*FREME C” OR V*="AFFERRO” THEN 510 
400 IF V*“"GETTARE” OR Vi-”BUTTARE” THEN 560 
402 IF V!— 1 *GETTA” OR V*~ "BUTTA” THEN 560 
405 IF V*="LASCIARE” OR V*=”ABBANDONARE" THEN 560 
408 IF Vi* '•LASCI A" OR V*= "ABBANDONA” THEN 560 
410 IF Vi -“"UCCIDERE” OR Vi-” AMMAZZARE" THEN 630 
412 IF V*~"UCCIDI " OR V*="AMMAZZA" THEN 630 
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402 IF V *» 11 GETTA" OR V*="BUTTA" THEN 560 

405 IF V*="LASCIARE" OR V*="ABBANDONARE" THEN 560 

408 IF V*'- ’l. ASCIA” OR V*= "ABBANDONA" THEN 560 

410 IF V*="UCCIDERE" OR V$="AMMAZZARE" THEN 630 

41 2 IF Vt»”UCCIDX” OR V$= !, AhMAZZA” THEN 630 

4 i 5 IR V$="SPARARE " OR V*="ELIMINARE" THEN 630 

418 IF V*="SPARA" OR V*="ELIMINA" THEN 630 

420 Cl.S SPRINT "NON SO COSA VUOL DIRE ?" : PRINTs GOTO 70 

430 CLS:PRINT "LA TUA DOTAZIONE E * ":D=0:PRINT 

440 ^OR 1 = 1 TO 3 

442 IF PG(L=-1 THEN PRINT 0G*(I):D=D+1 
450 NEXT I 

460 IF D=0 THEN PRINT "NULLA."sPRINT 
470 GOTO 70 

480 IF P=9 THEN PRINT "PROVA AD UCCIDERLA.GOTO 70 

490 IF P=2 THEN PRINT "PROVA AD USCIRE. GOTO 70 

500 CLS:PRINT "NON HAI BISOGNO DI AIUTO QUI !”: GOTO 70 

510 FOR 1=1 TO 3 

515 IF 03*m=N* THEN 530 

520 NEXT I 

530 IF OG < I )=— 1 THEN PRINT "C’E' L’HAI GlA' " : GOTO 70 

540 IF OGCD OP THEN PRINT "QUI NON C’E;NSsGOTO 70 

550 CLS SPRINT "QK HAI PRESO "OG*(I ) :OG<I)=-l: GOTO 70 

560 FOR 1=1 TO 3 

565 IF OG*(I)=N* THEN 580 

570 NEXT I 

580 IF 0G< 1)0-1 THEN PRINT "NON L’HAI": GOTO 70 
590 PRINT "OK HAI GETTATO ";OG*:OG(I)=PsGOTO 70 
600 GOTO 140 

610 IF 00(3)*—1 THEN CLS: XX*2l PRINT "CMC, CON LA FRUSTA" 

615 IF XX=3 THEN PRINT "TI AGGRAPPI A UN RAM0":XX=0 
620 PRINT "NON HAI NULI A A CUI AGGRAPPARTIGOTO 900 
630 IF PC 9 THEN 6 70 

640 IF OG<2) = — 1 T HEN XX = 3:PRINT "OK, L’HAI UCCISA !!!" 

£.45 TF XX--3 THEN PRINT "HAI VINTO LA SFIDA. " : XX=0: GOTO 850 
650 IF DG:1)=1 THEN XX=4: PRINT "CON QUEL TEMPERINO ?" 

655 IF XX- 4 THEN PRINT "VUOI SCHERZARE !":XX=0:G0T0 820 
660 CLS 8 PRINT "NON HAI NULLA CON CUI UCCIDERLA": GOTO 820 
67C PRINT "QUI NON C’F* NESSUNO DA UCCIDERE. " : GOTO 70 
6 FC PRINT "SEI IN RIVA AD UN FIUME" 

690 N--0:E=2:S=0: 0=0; GOTO 100 

700 PRINT " SET IN UN SENTIERO FANGOSO" 

710 N«0:E=Os 8=7: 0-1-.GOTO 100 

720 PRINT "SEI IN UNA CAVERNA CON DUE USCITE" 

730 N=?:E=S:S=0:0=0:GOTO 100 

740 PRINT "SEI IN UN CAMPO CIRCONDATO DAL BOSCO" 

750 N=0:E=9:S=13:0=7 : GOTO 100 
760 PF\INT ‘SEI IN UN PRATO" 

770 N= 8 :E=0:3=0:0=0:GOTO 100 
790 PRINT "SF! VICINO A UN BOSCO" 

790 N=0:E=0:S«0:3=8:GOTO 100 

CCC P*INT “Sri CADUTO NELLE SABBIE MOB 1 L 1 " : GOTO 190 
810 PRINT "UNA v IGRE ENORME ESCE DAL BOSCO." : GOTO 190 
820 PRINT » a TIGRE AVANZA LENTAMENTE VERSO DI TE," 

630 PRINT "TU CERCHI DI SCAPPARE MA INUTILMENTE," 

840 r -'FINT ’IA TI GRE TI RAGGIUNGE E TI DIVORA..." 

945 PRINT " GNAM_GNAM. . . . .GNAM" 

850 PRINT ; P RINT : c RINT : PRINT 

860 PRINT "GIOCHI ANCORA ? (S/N) " 5 : INPUT W$ 

360 IF LEPT*1>="S" THEN RUN ELSE END 
870 GOTO 865 

800 r * RI NT "IL. FANGO TI ATTIRA SEMPRE PIU ' GIU * " 

910 PRINT "SOFFOCANDOTI.." 

°20 r RIN T "....MI DI SPI ACE "-.GOTO 850 
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1 

=•*********************************** 

n 

’ *** 

ADVENTIJRE 

*** 

3 

’ *** 

-CACCIA ALLA TIGRE- 

*** 

4 

■’*** 

LI STATO PER 1 ASER 500 

*** 

5 

’ *** 

A CURA DELLA REDAZIONE 

** * 


6 •- ******************* **************** 

IO TEXT 40:COLOR 15,0, 9s CI S:SM=0:LU=0 
1? FOR 1=1 TO 3 
15 READ OG < I > , 08*< I > ,OD* C I ) 

13 NEXT I 

?0 DATA 7,IL COLTELLO,PER TERRA C'E' UN COLTELLO 
22 DATA 1,IL FICILE,QUI C’E' IL TUO FUCILE 
40 DATA 13,LA FRUSTA,A TERRA C'E' UNA LUNGA FRUSTA 
50 RANDOMIZE : P= I NT (14* F<MD ( 1 ) ) 

52 IF P=7 OR P=8 OR P=13 THEN 70 
55 GOTO 50 
60 P=P2 

70 PRINT 

71 Ir P=1 THEN 680 

72 IF P=2 THEN 700 

74 IF P=7 THEN 720 

75 IF P=8 THEN 740 

76 IF P=9 THEN 780 

77 IF P=13 THEN 760 

78 IF P>13 THEN 800 
100 FOR 1=1 TO 3 

105 IF OG(I)=P THEN PRINT OD* < I > 

110 NEXT I 

120 IF P=2 AND SM<>2 THEN 800 
130 IF P=9 AND LU< >2 THEN 810 
140 PRINT "PUOI ANDARE SOLO " 

150 IF N>0 THEN PRINT "A NORD" 

160 IF S>0 THEN PRINT "A SUD" 

170 IF E>0 THEN PRINT "A EST" 

180 IF 0>0 THEN PRINT "A OVEST" 

190 B*="": 14="": INPUT " ISTRUZIONI " ; I* 

200 IF P-2 AND SM02 THEN 290 
210 IF P=9 AND I UC 7 THEN 290 
215 B*=LEFT*<T*, 1) 

220 IF B*="N" OR B*="S" OR B*="£" OR B*="0" THLN 240 
230 GOTO 300 

240 IF B*="N" AND N>0 THEN P2«P~5* UOTCJ 60 

250 IF B*="S" AND S>0 1 HEN P2«p45i30T0 60 

260 IF B*="E" AND EX» THEN P2»P+1 xGOTO 60 

270 IF B*="0 ,: AND fl>0 THEN P2=P- 1 :bOl0 60 

280 PRINT "NON PUOI ANDARE *$ I*:GOTO 60 

290 IF B*="N" OR B*="S" OR OR B*=*'0" THEN PRINT NON PUÒ 

I FARLO ADESSO * ! ‘ : GOTO 70 
300 IF I*="D" THEN 430 

310 IF RIGHT * < I *, 6 ) = "IJSC I RE " AND F-2 AMD SM-.. 2 THEN aiu 
320 IF I*="A" THEN 430 
330 FOR 1 = 1 TC i.EN<!*> 

334 IF MID*<I*, I, 1 ) = » " t|ict N - 6 ù 
340 NEXT I 

350 PRINT "USARE »1U' PAROLE- 2 GOTO 70 
360 FOR SX = 1 TO l.EN< I* • 

365 IF MID*<I*,BX, 1>=" ‘ THEN 330 

370 NEXT SX 

380 V*-I.EFT* < I*,SX -1 > 

382 N*=R I GHT * ( I * , U EN<I*)~SX> ) 

390 IF V*="PRENDERE " OR V*="AF r ERRARE* THEN 510 
795 IF V*=" PRENDI " OR V*»"AFFERRA" THEN 510 
798 IF V*="PRENDE " OR v*="AFFERRO" THEN 510 
400 IF V*=" GETTARE* OR V$=" BUTTARE" THEN 560 
402 IF V*=" GETTA" OR V*-- "BUTTA" THEN 560 
405 IF V*=" LASCI ARE’ Or* v *= * ABBANDONARE " THEN 560 
408 IF V*= "L.ASC ! A" OR VI* •= "ABBANDONA ’ THEN 560 
410 IF V*» "UCCIDERE" OP V*t= AMMAZZARE * THEN 630 
412 IF V*="UCCIDI" OR V*-"AMMAZZA" THLN a30 
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415 IF V*= M SFAF:ARE ,: OR v/*= *£L XMINARE" THEN £>30 

4ie IF Vé^SPARA* OR Vl> = *EU 1 li!NA * 1 HCN 630 

420 CLS: FRINÌ “NON £0 COSA VUOL DIRE ?"!PRIh f 5 BOTO 70 

430 CLSs PRINT "LA TUA DOTAZIONE £ K " : D=0: PRIN I 

440 FOR 1=1 TC 3 

442 IF OG ( I ) =- 1 THEN PRINT OG* ( 1 ) : D-D-* 1 
450 NEXT I 

460 IF D-0 THEM PRIMI M NUl l A. * s PRINT 
470 GOTO 70 

400 IF P=9 THEM PRINT “PROVA AL UCCIDERLA- . . *’ : GLI L /C 

490 IF P=2 THEM PRIMI “PROVA AD USCIRE. "iGCJfJ /O 

500 CLSs PRINT ‘ NON HAI BISOGNO Di AIUTO QUI !*:GUTO 70 

5J 0 FOR 1=1 TO 3 

515 IF OG*<I)=N* THEM 530 

520 NEXT I 

530 ! r OG ( I > —- 1 TMFTM PRINT M C.' E * L'HAI G1A'";GUKJ 70 

340 IF OG (IX >P THEM PRINT “QUI NON C» E 0, j N*t GOTO 70 

550 CUG: PRINT "QK HAI PRESO “OS* (l) : OG ( 1 > i ; 00 f 0 70 

560 FOR 1=1 TO 3 

565 ir OG*(I)=N* THEN 580 

570 NEXT I 

580 T F OG < I >0-1 THEN PRINT “NON L ? HAI":GOIO 70 
590 PRINT »0K HAI GETTALO "; OG*:0G( I )=F : GOTO 70 
600 GOTO 140 

610 IF OG (3) =-1 THEN CLS; PRINT "OK, CON LA FRUSTA TX AGGRAPPI A 
UN RAMO" 

615 PRINT “ED ESCI DALLE SABBIE MOBILI •* s SM=2: GOTO 70 
620 PRINT “NON HAI NIJ! L A A CUI AGGRAPPAR T I - . . " : GOTO 900 
630 IF P<>9 THEM 6^0 

640 IF OG(7) - ■ l THEN PRINT “OK, L'HAI UCCISA !! HAI VINTO LA S 
FIDA. M : GOTO 850 

650 TF 0GC1)=-1 THEN PRINT “CON QUEL TEMPERINO ? VUOI SCHERZARE 
! !" : GOTO 820 

660 CLSsPRINT “NON HAI NULI A CON CUI UCCIDERLA"sGOTO e20 
670 PRINT “QUI NON C’E' NESSUNO DA UCCIDERE- “ sGOTO 70 
680 PRINT "SEI IN RIVA AD UN FIUME" 

690 N=0:E=2:S=0:0=0:GOTO 100 

7C0 PRINT "SEI IN UN SENTIERO FANGOSO" 

710 N=0:E =0s S=7s 0=1: GOTO 100 

720 PRINT "SEI IN JNA CAVERNA CON DUE USCITE" 

730 N ss 2sE ~8:S=0:0=0:GOTO 100 

740 PRINT "SEI IN IJN CAMPO CIRCONDATO DAL BOSCO* 

750 N=0:E=9:S=13s0=7:GOTO 100 
760 PRINT “SEI JN UN PRATO" 

770 N=8:E=0:S=0s0=0:GOTO 100 
780 PRINT "GEI VICINO A UN BOSCO" 

790 N=0:E=0:S=0:0=8:GOTO 100 

800 PRINT "SEI CADUTO NELLE SABBIE MOBILI":GOTO 190 
810 PRINT "UNA TIGRE ENORME ESCE DAL BOSCO.“:GOTG 190 
820 PRINT "LA TIGRE AVANZA LENTAMENTE VERSO DI TE," 

830 PRINT "TU CERCHI DI SCAPPARE MA INUTILMENTE," 

840 PRINT "LA TIGRE TI RAGGIUNGE E TI DIVORA..." 

845 PRINT " GNAM....GNAM.GNAM" 

850 PRINT:PRINT:PRINT:PRINT 

860 PRINT "GIOCHI ANCORA ? (S/N)";: INPUT W* 

868 TF LEF~*(WS,1>="S" THEN RUM ELSE END 
870 GOTO 865 

900 PRINT "IL FANGO TI ATTIRA SEMPRE PIU‘ GIU" 

910 PRINT "SOFFOCANDOTI. " 

920 PRINT "....MI DISPIACE * :GOTO 850 
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Aerei 


Occorre colpire con il 
cannone a fotone, por¬ 
tandosi nella posizione 
ideale, tramite i tasti 
cursore, e sparare con 
il tasto cursore freccia 
in sù. 

È possibile guidare il 
fotone anche dopo 
aver sparato, spostan¬ 
do il cannone a destra 
o a sinistra, facendo in 
modo di colpire l'aereo, 
ma attenzione se uno 
degli aerei si abbassa 
troppo sul vostro can¬ 
none finirete per esse¬ 
re colpiti voi e dunque 
il gioco termina. 

Il punteggio viene cal¬ 
colato in base all'altez¬ 
za dell'aereo, più si tro¬ 
va in alto e più punti 
otterrete, mentre se 
invece l'aereo si trova 
più o meno in giù il 
punteggio sarà scarso. 

DEFINIZIONE DELLE 
VARIABILI USATE: 

P$ = dati per il curso¬ 
re X e Y 

PX, PY = coordinate di 
partenza aereo 1 
SX, SY = incremento 
per muovere l'aereo 
nelle direzioni X e Y 
FX, FY = coordinate di 
partenza aereo 2 
GX, GY = incremento 
per muovere l'aereo 
nelle direzioni X e Y 


PER LASER 500/310 


io ’tmmtmmmmmmmmm 
20 ’tttl aerei mt 

30 'Itti LISTATO PER LASER 500 UH 
*0 ’ftlf A ORA DELLA REDAZIONE tttt 

so ’mmtmmmtmmmmmm 

60 ’ 

9) CCL3F 2,0,! :TEI T 40 
:0C P$-CFEK27HCHP1(16!) 

!!0 CLSiPRIHT P$5CHR$(32ICHR*(50);STRINSi(40,‘w"); 

!20 PX=4:PY=1:SX=1:SY=1:FX=1:FY=1:SX=2:BY=2:LX=B:LY=1:KX=1.2:KY=1.5 
130 AR$= , -{}- , :CR$=* , :CN*=* /"+CHR*(140)+‘\ ’:HY=1B 

140 FOR K=0 T0 100 

150 COLOR 6,0:PRINT P4 J CHR» <31+PX)CHR4 <31+PY); ARS 
160 COLOR 5,0:PRINT P$;CHR*<31+LX)CHR$(31+LY);AR* 

170 COLOR 3,0:PRIN7 P4jCHRi(31+FX)CHR*(31+FY);AR$ 

130 FOR SN=0 T0 2:’LEVEL 

*90 !F PEEjf(lrH8030) =8 AND HX>0 THEN HX=HX-1 

200 IF PEEK(6H8030)=25 AND HX<33 THEN HY=HX+1 

210 IF SP=0 AND PEEK(6H8030)=24 THEN SP=1:P0KE 6H8030,0 

220 IF SP=1 THEN PRINT P4;CHR$(34+HX)CHR*(30+HY)j 

730 IF PEEK(tiH360*)>32 t H en HZ=1:C0L0R ,,15:S0UND 1,1:COLOR ,, 1 :ST=ST+50/HY 
240 IF SP=1 AND HY>2 THEN HY=HY-1 : PRINT P*; CHR4 (34+HX) CHR$ (31+HY) ;T 
250 IF 3P=1 T HEN PRINT P«;CHR4(33+HX)CHR$(32+HY); * * 

260 IF HY=2 OR H2=l THEN SP=0:PR!NT P4;CHRi(33+HX)CHR«(31+HY);" , :HY=1B:HZ=0 

270 COLOR 4,0:PRINT Pti?HR«131+HX)CHR$(49);CN$ 
ree PRINT P$jCHR$(33+HX)CHR$(47) ; : IF PEEK(I.H8604) >32 THEN PC=1:G0T0 440 
2?C 55 INI Pt;CHRt(35*HY)CHR$!47); : IF PEEK(&H8604)>32 THEN PC=1:B0T0 440 
300 COLOR !5,0:PRINT P*;CHR»(35)CHR$(52);"TIHE >•;100-K;SPC(10);■SCORE >■; 

INT( SD;■ * 

31C NEYT SN 

323 PRIN* P*;CHR»(31*PX)CHR$<31+PY);■ 

330 PRINT P$;CHRi(31+LX)CHR$(31+LY);“ 

34C PRINT PtjCHRt(31+FX)Clfft$<31+FY); * 

350 PX=PX+SX:FX=FX+6X:LX=LX+KX 
36C PY=PY+SY:FY=FY+3Y:LY=LY+KY 
370 IF PKl OR PX >35 THEN SX=-SX 
330 IF Liri 3R LX>35 THEN KX=-KX 
390 IF Fri CR PX>35 THEN BX=-BX 
JìC IF PY<2 OR ? Y>15 THEN SY=-?Y 
IF LY 2 OR LY>15 THEN KY=-NY 
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LX, LY = coordinate di 
partenza aereo 3 
KX. KY = incremento 
per muovere l'aereo 
nelle direzioni X e Y 
AR$ = disegno aerei 
CR$ = cancella aerei 
CN$ = disegno can¬ 
none 

HY = variab. incre¬ 
mento Y missile 
HX = variab. per spo¬ 
stare il cannone, a de¬ 
stra e a sinistra 
&H8030 = toc. di let¬ 
tura del tasto premuto 
&H8604 = loc. per 
identificare se è avve¬ 
nuta una collisione tra 
il missile e uno dei tre 
aerei oppure tra aereo 
e cannone. 

K = variab. per il tem¬ 
po di fine gioco. 

T = variab. per il pun¬ 
teggio 

SP. HZ = variabile 
d'accesso 

Note della redazione: 
Questo gioco pur es¬ 
sendo un po'lentuccio 
è abbastanza diverten¬ 
te. e non mancano le 
varie difficoltà per ef¬ 
fettuare un buon pun¬ 
teggio nel tempo sta¬ 
bilito nel ciclo FOR 
K = 1 TO 100. 

Inoltre è possibile effet¬ 
tuare delle modifiche a 
vostro piacimento. 


4?0 I r FT<? 3R F v >15 Ti'EH GY=-6Y 
43C KEKT K:COLOR 15,0,1 

4±C FRUÌ* P$;CMR$(43)CHR$(35)j’G A H E 3 V E R" 

450 IF PC=1 THE* PRIMI P$;CHRt 42)CHR$(46);'SEI STATO COLPITO !" 
460 PRINT Pt;CHRt(44)C>i«(42)j , F0R GAME START* 

470 PRIMI P$;CHR$(44)CHR*(39);"PRESS KEY* 

480 IF PC-! THEN COLOR 15,0,4:PR1NT P4}CHR$(33+HX)CHR$i49); * CRASH* 
490 P0KE liH8030,C:FOR SD=0 TC 15:S0UND RND(l)»15,liMEXT 
500 IF INKEY*=” THEN 500 ELSE RUM 


-C 3 - 

— C 3- 

-C 3- 

* 


/^\ 

i/JWWWWWWWWWWWWWWWWWWWWW 

TIME >96 SCORE> 37 


COPY 


io ’************************** 

20 * * AEREI * 

30 't LISTATO PER LASER * 

40 ’* 310/210/110 * 

50 ’* A CURA DELLA REDAZIONE * 

60 ’*************************« 

65 * 

70 CL5SPRINT"COMANDI: " 

72 PRINT"TASTO (M) PER MUOVERE A SINI." 

74 PRINT"TASTO (,) PER MUOVERE A DESTRA” 

76 PRINT"TASTO (K) PER SPARARE" 

78 PRINTSPRINT 

80 INPUT "PREMI RETURN PER INIZIARE";A$ 

100 CL.EAR lOOsCLSsFOR Q«0 TO 31 

105 G*=G*+"W"sNEXT Q 

110 PX=5:PY=OsSX=1:SY=32:FX=0 

120 FY=0:GX=2:GY=64:LX=9s LY=0 

130 KX = 1:KY=64 

140 AR*="-C !)-"2CR*=" 

150 CN$=" /*\ ":HY=288 
152 PRINTS>352,G* 

155 FOR K=0 TO 100 
160 PRINTBPX+PY,ARS 
170 PRTNTaLX+LY,ARS 
180 PRINTa)FX+FY, ARS 
i90 FOR SW=1 TO 2:’LEVEL 
200 A*=INKEYS 

210 IF INKEYS="M" AND HX>0 THEN HX=HX-1 

220 IF INKEYS="," AND HX<27 THEN HX=HX+1 

230 IF SP=0 AND INKEYS="K" THEN SP=1 

240 IF SP=1 AND PEEK <2B674+HX+HY)< >96 THEN HZ = 1 

250 IF HZ = 1 THEN ST=ST+50/(HY/32): SOUND 1,1 

255 IF SP=1 AND HY>0 THEN HY=HY-32s PRINT334+HX+HY, " * " 

260 IF SP=1 THEN PRIN7à>65HHX+HY, " 

265 IF HY—0 OR HZ=1 THEN SP=0:PRINT334+HX+HY," ":HY=288sHZ=0 
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270 PRINT3320+HX 5 CNS 

275 IF PEEK(28961+HX)< >96 THENPC=1: GOTO 440 

280 IF PEEK <28963+HX)< >96 THENPC=1 : GOTO 440 

30C PRINT3416, M TIME > ,, |100-K} M SCORE > ,, ;INT(ST) 

310 NEXT SW 

320 PRINTS)PX+PY, CR$ 

330 PRI\T3LX+L.Y,CR* 

340 PRINT3FX+FY,CR$ 

350 FX=PX+SX:FX=FX+GX:LX-LX+KX 
360 PY=PY+SY:FY-FY+GY:LY=LY+KY 
370 IF PX<1 OR PX>26 1 HEN SX=-SX 
380 IF LX<1 OR LX>26 THEN KX=-KX 
390 IF FX<1 OR FX >26 THEN GX=-GX 

400 IF PY<32 OR PY!256 THEN SY=-SY 

410 IF LY<32 OR LY>256 THEN KY=-KY 

420 IF FY<32 OR FY>256 THEN GY=-GY 

430 NEXT K 

4 40 PRINTS>103, "G A M E OVER" 

450 IF PC=1 THEN PRINTa)l 66, "SE I STATO COLPITO !" 

460 PRINTa)202, "PRESS KEY" 

470 PRINT3264,"FOR GAME START" 

480 FOR D=0 TÒ 15sSOUND RND<15),1 :NEXT 
485 A*«INKEY* 

490 IF INI EY$ = "" THEN490 ELSE RUN 



DESIDERO RICEVERE su cassetta e contrassegno a L. 15.000 (escluse spese 
postali), i programmi contenuti nella rivista per il Laser 110-210-310-500 (barrare 
la casella corrispondente al tipo di computer di proprietà). 

Nr. RIVISTA 

VERSIONE PER □ LASER 500 

Nr. RIVISTA 

□ LASER 310-210-110 

Nr. RIVISTA 

MITTENTE: 


Cognome 

Nome 

Età _ 

Professione 

Via 

Nr. 

CAP 

Città Prov. 

FIRMA ^ 

DATA 

SOFIN s.r.l 

Compilare, ritagliare e spedire ad: 

- LASER COMPUTER CLUB - P.zza del Popolo, 14 - 22100 COMO 
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Informazioni 


Floppy disk 

FD 100 A PER LASER 500 


X = numero di traccia 
d'accesso 

PUT = trasferimento 
dati sul disco 
es.: PUT "NOME FI¬ 
LE". A$ 

ACCEPT = random ac¬ 
cesso (lettura) 
es.: ACCEPT "FILE 
NOME". X. 1 
X = numero di traccia 
d'accesso 

es.: GET "NOME FI¬ 
LE”. A$ 

COPY = serve per co¬ 
piare un programma 
da un disco all'altro op¬ 
pure fare una copia in¬ 
tegrale del disco. 

I quattro listati che se¬ 
guono sono delle picco¬ 
le routine per verifica- 
re sia il funzionamen¬ 
to. che le varie applica¬ 
zioni anche nei vostri 
programmi. 


io ’iiiiiiiiiiiitiiiitiitiiitiittiiititiiintiii 

20 ’l UTILITY DI BASE PER FLOPPY DISK FD 100/A * 

30 ’l SAVE DIN At(H) 

LOAD DIN A«(XX) SU DISCO I 

40 ’l PER LASER 500 

A CURA DELLA REDAZIONE 1 

60 ’lltlllllllllllllllllttlllttlllttltttllllltll 

70 ’ 


100 ’PROGRAHHA PER SALVARE IL CONTENUTO DI UN VETTORE 0 DI UNA NATRICE 

110 ’SUL DISCO 

120 ’ 

125 DIN At(10),B(10) 

NATRICE DA SALVARE SUL DISCO 

130 0PEN'TENA*,L40 

:’APRE UN FILE RANDOH DAL NONE 'TENA* 

140 FOR A=1 TO 10 

:’PUNTO DI PARTENZA DELLA TRACCIA DA SCRIVERE 

160 URITE -TEHA*,A,1 

:’INIZIO SCRITTURA DELLA TRACCIA NUNERO A 

170 PUT*TENA*,A$(A),B(A) :’INSE.NATRICE NELLA TRACCIA N’A 

180 NEH:CLOSE "TENA* 
190 ’ 

:'CHIUDE IL FILE "TENA* 


Il floppy disk del LA¬ 
SER 500 FD 10OA ge¬ 
stito dal LASER 500 in 
DOS 1.1 con un baga¬ 
glio di comandi da fa¬ 
re invidia a molti altri 
home computer. 
Inoltre può lavorare 
anche in CPM2.2 utiliz¬ 
zando anche i vari pro¬ 
grammi compilati in 
CPM (versione 2.2). 
Ma non è tutto, per il 
LASER 500 è possibile 
programmare anche in 
ambiente (LOGO) oltre 
al BASIC ed il CPM. 
Vediamo ora. alcuni dei 
comandi più importan¬ 
ti. per gestire il floppy 
disk: 

INIT = formatta un 
nuovo disco a singola 
densità 148 K.RAM 
IN IT : D = formatta un 
nuovo disco doppia 
densità 308 K.RAM 


DIR = stampa la dy- 
rectory sul video 
RUN = carica e manda 
in esecuzione il pro¬ 
gramma 

es.: RUN "NOME DEL 
GIOCO" 

STATUS = indica 
quanta memoria del 
disco è occupata e 
quanta ne resta a di¬ 
sposizione 

REN = cambia il vec¬ 
chio nome del pro¬ 
gramma con il nuovo 
es. REN "VECCHIO 
NOME". "NUOVO 
NOME" 

ERA = cancella il pro¬ 
gramma 

es. ERA "PIPPO" 
DRIVE 1 = seleziona il 
drive n. 1 

DRIVE 2 = seleziona il 
drive n. 2 

BSAVE = memorizza 
un programma in LM. 


es. BSAVE "TEN¬ 
NIS". &h30DF. &H607F 
BLOAD = carica il pro¬ 
gramma in LM 
BRUN = carica il pro¬ 
gramma in LM e lo 
manda in esecuzione 
OPEN = apre un cana¬ 
le con il floppy 
es.: OPEN "NOME FI¬ 
LE". 1 = scrivere OPEN 
"NOME FILE”,0 = leg¬ 
gere 

PR* = scrive sul disco 
in sequenza 
es. PR* "NOME FI¬ 
LE”. A. A$, B. B$. ecc. 
IN* = carica dal disco 
in sequenza 
es.: IN* "NOME FI¬ 
LE", A, A$, B, B$. ecc. 
CLOSE = chiude il ca¬ 
nale 

WRITE = random ac¬ 
cesso (scrittura) 
es.: WRITE "NOME 
FILE”, X. 1 
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200 REH PROGRAMMA PER LEGGERE E TRASFERIRE I DATI NELLA MATRICE 0 VETTORE 

210 * DAL DISCO 


220 ' 


225 DIM At(10),B(I0) 

:'MATRICE DA SALVARE SUL DISCO 

230 OPEN*TEHA',L40 

s’APRE UN FILE RANDOH > 'TEMA' 

240 FOR A=1 TO 10 

:'PUNTO DI PARTENZA DELLA TRACCIA DA LE66ERE 

250 ACCEPT'TEHA',A, 1 

s’INIZIO LETTURA DELLA TRACCIA NUMERO A 

260 SET”TEMA",A$(A),B(A) 

:'CARICA NATRICE DALLA TRACCIA N’A 

270 PRINT A$<A),B(A) 

STAMPA 

280 NEZT:CLOSE 'TEMA* 

s'CHIUDE IL FILE 'TEMA' 

io ’tttmmmttmmmtttttmmtmmm 

20 ’t UTILITY DI BASE PER FLOPPY DISK FD 100/A 1 

30 ’t SCRITTURA E LETTURA RAMOOH SU DISCO t 

40 ’t PER LASER 500 A CURA DELLA REDAZIONE I 

60 ’tttttttttttttttttttttttttttttttttttttttttttt 

70 ’ 


100 'PROGRAMMA PER SCRIVERE 


110 ’SUL DISCO 


120 ’ 


130 0FEN'TEHA',L40 

s’APRE UN FILE RANDOH DAL NOME 'TEMA* 

140 FOR A=1 TO 10 

:’PUNTO DI PARTENZA DELLA TRACCIA DA SCRIVERE 

150 INPUT 'INSERIRE STRINGA*;B$ 

:’INSERIMENTO STRINGA 

160 NRITE 'TEMA',A,1 

s’INIZIO SCRITTURA DELLA TRACCIA NUMERO A 

170 PUT'TEHA',B4,A 

s’INSE.STRINGA E NUMERO NELLA TRACCIA N’A 

180 NEXTsCLOSE'TEHA's’ 

:'CHIUDE IL FILE 'TEMA* 

190 ’ 


200 REM PROGRAMMA PER LEGGERE 


210 ’DAL DISCO 


220 ’ 


230 3PEN'TEHA*,L40 

s’APRE UN FILE RANDOM 'TEMA' 

240 FOR A=1 TO 10 

:'PUNTO DI PARTENZA DELLA TRACCIA DA LEGGERE 

250 ACCEPT*TEMA',A,1 

S’INIZIO LETTURA DELLA TRACCIA NUMERO A 

260 GET'TEMA',Bt,B 

:'CARICA STRINGA E NUMERO DALLA TRACCIA N’A 

270 PRINT B4,B 

:’STAMPA 

280 NEXT:CLOSE 'TEMA':’ 

:'CHIUDE IL FILE 'TEMA' 

290 ’ 


292 'PROVA DI LETTURA RND DAL DISCO 

296 ’ 


300 OPEN'TEHA',L40 

s’APRE UN FILE RANDOH DAL NOME 'TEMA* 

310 INPUT *INS.NUMERO TRACCIA';A :’NUMERO DELLA TRACCIA DA LEGGERE 

315 IF A=0 THEN:CLOSE'TEMA': END 

:’CONTROLLO INPUT 0=FINE 

320 ACCEPT'TEMA'jA,1 

s’INIZIO LETTURA DELLA TRACCIA NUMERO A 

330 GET*TEMA',B$,B 

:'CARICA STRINGA E NUMERO DALLA TRACCIA N’A 

340 PRINT Bt,B 

:’STAMPA 

350 GOTO 310 


360 ’ 


370 NBsSONO PREVISTI UN MASSIMO 

DI 40 CARATTERI PER LE STRINGHE 

380 DUNQUE TUTTO QUELLO CHE VIENE DIGITATO OLTRE I 40 CARATTERI 

390 NON VERRÀ' MEMORIZZATO SUL DISCO. 
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io ’tttttttttttttttttttttttttttttttttttttttttttt 

20 ’l UTILITY DI BASE PER FLOPPY DISK FD 100/A I 
30 ’t LOAD/SAVE DEI DATI SEQUENZIALI DA DISCO t 
40 ’l PER LASER 500 A CURA DELLA REDAZIONE I 

60 ’tttttttttttttttttttttttttttttttttttttttmtt 

70 ’ 

100 'PR06RAHHA PER SALVARE DATI NUMERICI 
110 'SUL DISCO 
120 ’ 

130 0PEN'TEHA*,1 s’APRE UN FILE SEQUENZIALE DAL NOME 'TEMA* 

140 FOR A=1 TO 10 : 'PUNTO DI PARTENZA DELLA TRACCIA DA SCRIVERE 

170 PR*’TEHA’,A :’INSE.DATI SUL DISCO DEL CONTENUTO IN A 

ISO NEXT:CLOSE ’TEHA’:’ SCHIUDE IL FILE ’TEHA’ 

190 ’ 

200 REM PROGRAMMA PER LE6GERE DATI NUMERICI 
210 ’DAL DISCO 
220 ’ 

230 OPEN’TEMA’,0 :’APRE UN FILE SEQUENZIALE ‘TEMA 1 

240 FOR A=1 TO IO PUNTO DI PARTENZA DELLA TRACCIA DA LEGGERE 

260 INt’YENA*,CC :’CARICA I DATI NElLA VARIABILE CC 

270 PRINT CC STAMPA 

280 NEIT: CLOSE ■TEMA*:’ :'CHIUDE IL FILE 'TEMA* 

290 ’ 

295 ’NB:LA SCRITTURA SU DISCO DEI DATI E POSSIBILE UNA VOLTA SOLTANTO ! 

300 ’ PER RINSERIRE DEI NUOVI DATI OCCORRE 0 CANCELLARE IL FILE’TENA’ 

310 ’ NEL MODO SEGUENTE: ERA’TEHA’ OPPURE CAMBIARE IL NOME DEL FILE 

io ’tmttimtmtmtimmmmmimimt 

20 ’l UTILITY DI BASE PER FLOPPY DISK FD 100/A I 
30 ’l LOAD/SAVE DEI DATI SEQUENZIALI DA DISCO I 
40 ’t PER LASER 500 A CURA DELLA REDAZIONE I 

60 ’lttllltltllttttlttltltttlttltttlllltllltlltt 

70 ’ 

100 'PROGRAMMA PER SALVARE DATI NUMERICI DA INPUT 
110 'SUL DISCO 
120 ’ 

130 OPEN’TEHA’,1 :’APRE UN FILE SEQUENZIALE DAL NOME 'TEMA* 

140 FOR A=1 TO 10 :’PUNTO DI PARTENZA DELLA TRACCIA DA SCRIVERE 

150 INPUT 'INSERIRE NUMERO’;M :’INSE.NUMERO DA MEMORIZZARE 
170 PRI’TEMA’jM :’INSE.DATI SUL DISCO DEL CONTENUTO IN H 

180 NEIT:CLOSE ’TEMA’:’ :'CHIUDE IL FILE ‘TEMA* 

190 ’ 

200 REM PROGRAMMA PER LEGGERE DATI NUMERICI 
210 ’DAL DISCO 
220 ’ 

230 0PEN’TEMA’,0 :’APRE UN FILE SEQUENZIALE 'TEMA’ 

240 FOR A=1 TO 10 :’PUNTO DI PARTENZA DELLA TRACCIA DA LEGGERE 

260 INt’TEMA’.CC :'CARICA 1 DATI NELLA VARIABILE CC 

270 PRINT CC :’STAMPA 

280 NEIT:CLOSE 'TEMA’:’ :'CHIUDE IL FILE 'TEMA* 

290 ’ 

295 ’NB:LA SCRITTURA SU DISCO DEI DATI E POSSIBILE UNA VOLTA SOLTANTO ! 

300 ’ PER RINSERIRE DEI NUOVI DATI OCCORRE 0 CANCELLARE IL FILE’TEMA’ 

310 ’ NEL MODO SEGUENTE: ERA’TEHA’ OPPURE CAMBIARE IL NOME DEL FILE 


27 




s 


Piccoli 


annunci 


Cerco programmi o giochi per La¬ 
ser 500, soprattutto in linguaggio 
macchina e non protetti. 

Per informazioni telefonare (dopo 
le 18.00) a Pucciarelli Feliciano 
0975/38165 o scrivere: via Loc. 
Ciotte, 84030 Caggiano (SA). 

Cercasi joystick e floppy disk com¬ 
pleto di disk a prezzo disponibile 
per Laser 500. Per informazioni 
chiamare Fotia Vincenzo, corso F. 
Sof. Alessio 167, 89029 Tauriano- 
va (RC), telefono 0966/641380. 

Vendo Laser 500 + registratore + 
manuale + corso d’informatica + 
riviste L.C.C. + software tra cui: Ci¬ 
ty invasion, Paint utility, ecc. 
Prezzo affare LIRE 350.000 tratta¬ 
bili. Per informazioni telefonare (ore 
pasti) a: Fantazzini Fabrizio, tei. 
051/461288, via Resistenza 7, 
40068 San Lazzaro (BO). 

Vendesi fotocopie rivista L.C.C., 
Anno 1, N° 0 a L. 300 la pagina, 
a richiesta, scrivere a Donato Sco- 
gnamiglio, via 4 Orologi 37, 80056 
Ercolano (NA). 

Cerco penna ottica + interfaccia 
+ cassetta dimostrativa, prezzo 
trattabile. 

Scrivere: Donato Scognamiglio, via 
4 Orologi 37, 80056 Ercolano (NA). 

Vendo computer Laser 500 con re¬ 
gistratore e due joystick. 

Prezzo trattabile. Telefonare a Dan- 
tonio Massimo (0362) 627147. 
Mittente: Dantonio Massimo, via 
Marsala 12, 20033 Desio (MI). 


Vendo causa passaggio a sistema 
superiore, Laser 500 completo di 
registratore Laser DR 30, Softwa¬ 
re, manuale, dizionario e libri Ba¬ 
sic a L. 350.000 trattabili, in rega¬ 
lo 4 cassette giochi. 

Scrivere o telefonare a: 

Asciutti Michele, via Garibaldi 37, 
05012 Artigliano (TR). Tel. (0744) 
994243 ore pomeridiane. 

Vendo Laser 500 color computer 
+ registratore DR 30 + software 
+ riviste e manuale. 

Chiedere di: 

Kratter Piergiorgio, Sappada (BL), 
Tel. (0435) 66057. 

Cerco plotter PP40 + interfaccia 
PI20 in buone condizioni e ad un 
prezzo ragionevole. 

Per accordi telefonare allo (0789) 
292228 o scrivere a Satta Anna, via 
Luna e Sole 19, 07100 Sassari. 

Occasione! Vendo Laser 500 quasi 
nuovo completo di registratore, 
una cassetta con giochi, manuale 
d’uso, borsa trasporto e alcune ri¬ 
viste L.C.C. Lit. 250.000. 

Pileri Vanni, viale Costa Smeralda 
12, 07021 Arzachena (SS). 

Tel. (0789) 82220. 

Vendo Laser 500 (64K) + registra¬ 
tore + manuale + riviste dedica¬ 
te (L.C.C.) a L. 200.000 trattabili. 
Per informazioni telefonare dalle 
9-12, 16-19 a Walter Corini (035) 
830457, piazza Camozzi 9, Gru- 
mello d. Monte (BG). 

Causa cessato hobby. 


Cerco programmi Laser 500, pre¬ 
feribilmente giochi. 

Scrivere o telefonare a: SECCI CI¬ 
RO - vico 3° nazionale n° 6 - 
08030 Nurallao (NU) 

Tel. (0782) 815009 

Vendo Laser 500 + registratore 
DR 30, completi di alimentatori, ca¬ 
vetti e manuali + software Paint 
Utility + cassetta di programmi va¬ 
ri. Tutto perfettamente funzionana- 
te. Prezzo affare L. 300.000 tratta¬ 
bili. - Moro Pio, Via G. Pascoli, 3 

- 33078 S. Vito al Tagliamento (PN) 

- Tel. 0434/80627. 

Vendo Laser 310 completo di re¬ 
gistratore e di tutte le riviste e cas¬ 
sette LCC a L. 200.000 trattabili. 
Barbieri Katia, Via Alla Cava, 4 - 
22100 COMO - Tel. 031-542813 

Vendo Laser 210 con registratore 
+ cassetta Illustrazione + libri ap¬ 
plicazione + espansore. Per infor¬ 
mazioni telefonare ore 14.00 tutti 
i giorni al numero 081/8291386 ad 
Antonio De Falco, via Costantino- 
polin. 119 - Piazzola di Nola (NA) 

Amici: causa passaggio a sistema 
superiore vendo il fantastico Laser 
500 con registratore, light pen (con 
relativo programma), interfaccia 
per stampante e vario software il 
tutto a sole L. 300.000 non tratta¬ 
bili. Per informazioni scrivere o te¬ 
lefonare a Scanniffio Paolo, Via P. 
Kolbe, 2 - 20033 DESIO (MI) - Tel. 
0362/636981. Vi aspetto! 


V 


Testo dell’annuncio (massimo 300 caratteri circa) 


Attenzione: gli annunci inviati per questa rubrica, il cui contenuto sarà ritenuto non pubblicabile dalla redazione di LCC, 
saranno respinti a insindacabile giudizio e senza spiegazioni. 

Per motivi pratici si prega di non lasciare comunicazioni o richiedere informazioni (scritte o telefoniche) riguardanti gli an¬ 
nunci inviati. 

Scrivere a macchina. Per esigenze operative, gli annunci non chiaramente leggibili saranno cestinati. 

Spedire a: SOFIN srl - LASER COMPUTER CLUB - P.zza del Popolo, 14^22100 COMO 

____ 
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Software per il vostro 

LASER 500 



MINE KILLERS I terroristi semi¬ 
nano pericolose mine in un im¬ 
portante porto. 

Voi siete i custodi della tranquil¬ 
lità di migliaia di persone, e del¬ 
la Pace nel paese. 

È necessario eliminare tutte le 
mine dal porto, facendo atten¬ 
zione a non colpire le numero¬ 
se navi che transitano. □ 
14 



SAY-MON Divertente gioco per 
esercitare i vostri riflessi e la vo¬ 
stra memoria. 18 


LASER 500 PAINT UTILITY 

Questo programma consente 
di realizzare qualsiasi disegno, 
in alta risoluzione, con 16 colori 
a disposizione. 

Alcune delle funzioni principali: 

- Disegnare, cancellare, cor¬ 
reggere punto per punto. 

- Colorare un’area con uno dei 
16 colori disponibili. 

- Salvare su nastro il disegno 
fatto. 

- Richiamare da nastro il dise¬ 
gno precedentemente salvato, 
con possibilità di correggerlo e 
salvarlo di nuovo. 

- Inserire un qualsiasi testo nel 
disegno in alta risoluzione. 

I disegni realizzati con questo 
programma potranno essere 
usati in altri programmi, di gio¬ 
co, statistica, o altro. □ 

15 



BOXE (per LASER 500) Incon¬ 
tro di pugilatosui 9 round. Evitare 
di finire spesso al tappeto. Solo 
con joystick. 19 



MOON LANDER La luna è or¬ 
mai diventata una base avan¬ 
zata del pianeta Terra ma ogni 
viaggio verso il satellite ripro¬ 
pone il problema della discesa 
sul suolo lunare, che deve es¬ 
sere eseguito con competenza 
dagli astronauti. 

È necessario evitare gli asteroi¬ 
di che sfecciano numerosi 
nell’oscurità dell’Universo. 
Occorre controllate la velocità 
di impatto, per non distruggere 
il modulo lunare. 

Le manovre non sono semplici, 
a causa della ridotta gravità 
della luna (circa 1/6 di quella 

tprrpotrp^ 

BUONA FORTUNA!!! □ 

16 


CITY INVASION Entusiasman¬ 
te gioco spaziale, con scenario 
in grafica ad alta risoluzione, ed 
ambientazione molto suggesti¬ 
va. 

Gli invasori sono arrivati a Co¬ 
mo!!! 

Il Tempio Voltiano, che conser¬ 
va le più importanti documen¬ 
tazioni dell’attività di Alessan¬ 
dro Volta, è minacciato dagli 
invasori. 

È necessario intervenire tem¬ 
pestivamente con tutti i mezzi a 
disposizione, per difendere il 
tempio, ed il mondo. □ 

17 


NOTA BENE 

Per ordini di importo superiore a L. 40.000 spese di spedizione 
L. 2.000. Per ordine di importo inferiore a L. 40.000, spese di 
spedizione al costo. 


Per ordinare i programmi ritagliare (o fotocopiare) il tagliando, compilar¬ 
lo e spedirlo aH’indirizzo indicato. 


r 


n 


MULTIDIDACT s.r.l. 1/88 

Via Vaneggio, 2 - 22100 COMO (Tel. 031/275088) 

Desidero ricevere i seguenti giochi a L. 15.000 cadauno: 
(indicare i codici) 


□ 01 

□ 02 

□ 03 

□ 04 

□ 05 

□ 06 

□ 07 

□ 08 

□ 09 

□ 10 

□ 11 

□ 12 

□ 13 

□ 14 

□ 15 

□ 16 

□ 17 

□ 18 

□ 19 




per una spesa totale di L. 

Pagherò contrassegno l’ammontare dovuto, più spese postali, al 
ricevimento di quanto ordinato. 

COGNOME 

NOME 

VIA N. 

C.A.P. CITTÀ 


Y' 

00 


FIRMA 

DATA 






































Nuovi entusiasmanti giochi 


per il vostro LASER 310 



MATHS FUN I Genera diver¬ 
tenti problemi di matematica per 
bambini in età prescolare. So¬ 
no possibili diversi livelli di 
difficoltà. 

01 


CRASH Controlla la tua auto e 
cerca di prendere tutti i tesori 
che incontri sul percorso cer¬ 
cando di evitare le altre automo¬ 
bili. 

02 


MATRIX Permette di eseguire 
calcoli matricali (somma di ma¬ 
trici, moltiplicazioni per un valore 
scalare, moltiplicazione fra ma¬ 
trici). 

03 


COSMIC RESCUE Pericolosa 
missione nel cuore del sistema 
solare meteoritico. Solo i migliori 
sopravvivono e realizzano il sal¬ 
vataggio cosmico. Solo con 
Joysticks. 04 



MATCH BOX Una sfida tra amici 
per scoprire il mistero delle scato¬ 
le magiche. Chi sarà più bravo nel 
comporre le coppie giuste?. Non 
richiede l'uso di Joystick. 010 


POWER LOADER Occorre cari¬ 
care la massima energia dalle 
basi spaziali evitando di essere 
disintegrati dagli scarafaggi 
alieni. 11 


TENNIS Gioco di azione tridi¬ 
mensionale. Si può giocare con¬ 
tro il computer oppure tra due 
giocatori. Utilizzabile sia tastie¬ 
ra sia joystick. 05 


6 IN ONE FUN 6 giochi per 
esercitare la mente. Gare di de¬ 
duzione, giochi di calcolo, indo¬ 
vinelli. Si gioca contro il compu¬ 
ter. 06 





ALIEN Mostri spaziali attacca¬ 
no la terra. Il grande avvoltoio 
cercherà di distruggerti.... 

12 


BOXE Incontro di pugilato sui 
7 round. Evitare di finire spes¬ 
so al tappeto. Solo con joystick. 

13 


CIRCUS La vita dei tuoi amici è 
nelle tue mani. Sono acrobati del 
circo e la loro sicurezza dipende 
dalla tua abilità. Un gioco di azio¬ 
ne in linguaggio macchina. 07 


F - 104 Gioco di azione nei cieli 
alla caccia di aerei nemici. Molto 
veloce, prevede 3 livelli di difficol¬ 
tà. Solo con joystick. 08 





































































